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This publication is intended for programmers who have a 
basic knowledge of cobol programming. It includes the addi- 
tional specifications necessary to write a cobol program for 
the ibm 1401 Data Processing System. 

Specific examples show how many cobol statements are 
coded. A general explanation of these statements is also given. 

A sample problem shows complete entries for the identifi- 
cation, ENVIRONMENT and DATA DIVISIONS. 
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Preface 



This publication partially describes the specifications 
for writing a 1401 cobol program to be processed by an 
ibm 1401 with at least 4,000 positions of core storage. 
It supplements the ibm cobol General Information 
Manual, Form F28-8053, which describes the cobol 
language as it applies to ibm computers. The manual 
includes many details about" the cobol language that 
are not included in this publication. 

The 1401 cobol programmer should also be familiar 
with the material contained in the following Systems 
Reference Library publications: 
IBM 1401 System Operation Reference Manual, Form 

A24-3067 
Autocoder (on Tape) Language Specifications and 
Operating Procedures IBM 1401 and 1460, Form 
C24-3319 
Input/Output Control System Specifications and 
Operating Procedures for IBM 1401 and 1460, 
Form C24-1462 
Operating information for this version of 1401 
cobol is in COBOL (on Tape) Operating Pro- 
cedures IBM 1401, Form C24-3146. 
Since the ibm 1401 Data Processing System was an- 
nounced, the ibm 1401 Symbolic Programming System 



has been widely used. This system is essentially a one- 
for-one coding system in which the programmer writes 
one symbolic instruction for each actual machine- 
language instruction needed to solve a given problem. 
This system relieves the programmer from the burden 
of remembering machine-language operation codes 
and machine addresses. 

The 1401 Autocoder was subsequently developed to 
permit the programmer to use macro instructions that 
incorporate common routines automatically. The 1401 
Input/Output Control System (IOCS) has been in- 
cluded in Autocoder to provide standard routines for 
getting data into and out of the machine. 

The cobol language permits programming in terms 
that describe the problem, rather than in terms that 
describe the machine used to solve it. The general 
language specifications (with a few minor exceptions) 
remain the same for all computers. 

To write a complete cobol program for the 1401, the 
reader must be familiar with the information presented 
in the cobol General Information Manual as well as 
the material in this publication. 



This publication, C24-1492-2, is a major revision of C24-1492-1 
and obsoletes it and prior editions. In addition to incorporating 
information released in Technical Newsletters N24-0259 and 
N21-0033, significant changes have been made. A section on 
Programming Considerations has been added. 



Copies of this and other IBM publications can be obtained through IBM Branch Offices. 
A form is included at the back of this manual for readers' comments. If this form has 
been removed, address comments to: IBM Corporation, Product Publications, Dept. 245, 
Rochester, Minn. 55901. 
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The COBOL Language 



The programmer's responsibility in preparing a cobol 
program is to: 

1. Identify the program. 

2. Specify the features and devices of the ibm 1401 
Data Processing System that will be used to compile 
and execute the resultant machine-language object 
program. 

3. Describe the data to be processed. 

4. State the procedure to process the data. 

The programmer uses the characters, words, and ex- 
pressions that make up the cobol language. He writes 
them according to a standard reference format that is 
outlined on the cobol program sheet (Form X28-1464). 
This standard coding sheet is used with all ibm cobol 
systems to record the source program. 

The cobol source program card deck is punched 
from these coding sheets. These cards make up the 
cobol source program card input to the 1401 cobol 
processor. 

The Cobol Processor 

The cobol processor is itself a program. It compiles 
an object program in 1401 Autocoder language from 
the cobol source statements. The Autocoder processor 
assembles the machine-language object program from 
the object program in Autocoder as shown in Figure 1. 

Machine Requirements 

The 1401 cobol processor can compile an object pro- 
gram for any ibm 1401 system that has at least 4,000 
positions of core storage. However, to process the cobol 
source program, the 1401 must have at least: 

• 4,000 positions of core storage 

• Four ibm magnetic-tape units 

• ibm 1403 Printer, Model 2 

• ibm 1402 Card Read-Punch 

• Advanced Programming Feature 

• High-Low-Equal Compare Feature 

• Sense Switches 

The 1401 on which the object program is to be exe- 
cuted must have: 

1. Sufficient core storage to contain the program pro- 
duced by the cobol processor. If the object program 
requires more than the available core-storage capac- 
ity, either the program must be executed in sections 
(overlays) or the job must be divided into multiple 
runs. 

Note: This requirement is a significant consider- 
ation when planning to implement COBOL on a 
system with 4000 positions of core storage. 
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Figure 1. cobol Compiling and Assembly Process 



2. The object machine must have the input and output 
units defined in the file-contbol paragraph. 

3. Advanced Programming Feature. 

4. High-Low-Equal Compare Feature. 

5. Sense Switches when they are referred to in the 
special-names section. 

6. Multiply-Divide Feature if any of these entries ap- 
pears in the procedure division of the cobol source 
program: 

a. multiply verb. 

b. divide verb. 

c. compute verb when either /,*, or ** is used as 
the operator. 



IBM 1401 COBOL Programming 



The 1401 cobol source program has four major divi- 
sions. Each division has its own set of statements which 
are written according to the rules established for the 
cobol language, as described in the IBM COBOL Gen- 
eral Information Manual, Form F28-8053. These divi- 
sion statement sets must be arranged for presentation 
to the 1401 cobol processor in this order: 
identification division, 
environment division, 
data division, 
procedure division. 

Write the identification division entries as de- 
scribed in the IBM COBOL General Information 
Manual. 



Environment Division 

In this part of the cobol source program, the program- 
mer specifies the physical characteristics of the par- 
ticular ibm 1401 system(s) to be used to compile and to 
execute the object program. 

The environment division has two major sections, 
each of which has a fixed section name: configuration 
and input-output. 

The 1401 cobol presentation format for this is: 

ENVIRONMENT DIVISION. 

CONFIGURATION SECTION. 

SOURCE-COMPUTER. 

OBJECT-COMPUTER. 

SPECIAL-NAMES. 

INPUT-OUTPUT SECTION. 

FDLE-CONTROL. 



Configuration Section 

The configuration section has three paragraphs: The 
source-computer paragraph names and describes the 
1401 that will compile the object program from the 
cobol source statements. 

The object-computer paragraph names and de- 
scribes the 1401 that will execute the object program. 

The special-names paragraph equates mnemonic 



names to standard names for actual machine devices, 
equates condition names to standard names for the 
status of actual machine switches, and equates Auto- 
coder names to cobol names. 



Source-Computer Paragraph 

Reference Format 



SOURCE-COMPUTER. 



IBM-1401 



MEMORY SIZE 



4000) 
X2000 ( CHARACTERS 
16000 ) 



NO-RELEASE 



NO- PRINT-STORAGE 



General Description: This paragraph names the com- 
puter that will compile and assemble the object pro- 
gram. It is the computer in which the ibm 1401 cobol 
processor program compiles a machine-oriented sym- 
bolic program ( 1401 Autocoder) from the problem- 
oriented cobol source program and assembles the 
actual machine-language program. 



MEMORY SIZE 



( 4000) 
) 8000 V 
\ 12000 ( 
(.16000 J 



CHARACTERS 



General Description: This statement tells the cobol 
processor how much core storage (memory) is avail- 
able for use during the compiling and assembling 
operation. If this statement is omitted, the actual ma- 
chine core-storage size will be used. If the clause is 
included, the specified machine size will be used un- 
less it is greater than the actual machine core-storage 



size. 



NO-RELEASE N 



NO-PRINT-STORAGE 







The appropriate clause(s) must be included if the 
source computer does not have the read-punch release 
or print-storage features. 



Object-Computer Paragraph 

Reference Format 
OBJECT-COMPUTER. IBM-1401 



[ 



ASSIGN OBJECT-PROGRAM TO TAPE 



MEMORY SIZE 



4000 

8000 

12000 

. 16000 



CHARACTERS 



ADDRESS integer 1 THRU 

( 4000 ) 
J 8000 l 
\ 12000 ( 

\ 16000 ; 



NO-OVERLAP 







NO-PRINT-STORAGE 



]• 



General Description: The object-computer paragraph 
describes the computer that will execute the object 
program. The "object-computer, ibm-1401" state- 
ment defines an ibm 1401 with 16,000 characters, the 
processing-overlap feature, and input/output units 
required for the files defined in the file-control 
paragraph. If the object machine has fewer than 
16,000 positions of storage and/or no overlap, and/or 
no print storage, the appropriate clauses must be in- 
cluded in the source program. It also permits the pro- 
grammer to specify which input device will read the 
object program into storage before it is executed. 



D 







ASSIGN OBJECT-PROGRAM TO TAPE 



General Description: This statement directs the proc- 
essor to put the object program on magnetic tape. If 
this statement is included in the cobol source pro- 
gram, a tape unit is designated as the input device 
that will read the object program into storage. If 
the statement is omitted, the object program will be 
punched in cards and the ibm 1402 Card Read-Punch 
will be the input: device. 



General Description: This clause tells the processor 
how many positions of core storage are available in 
the object machine and the starting core-storage ad- 
dress of the object program. 

If the programmer wishes the program to start at 
any location other than 333, he can use the address 
integer-1 thru option and write the numerical ad- 
dress of this location in the integer-1 portion. This 
number should not be less than 333. The number 
following thru specifies the last core-storage position 
that can be used for the object program. 

If the memory size statement is omitted from the 
cobol source program, the processor assumes that 
the object computer has 16,000 positions and starts 
the object program at core-storage location 333. 







a 



NO-OVERLAP 



General Description: The no-overlap option must be 
included only if the object computer does not have 
the processing overlap feature. 

When the overlap feature is used, an alternate area 
must be specified for tape input files with form-1 
records. 

NO-PRINT-STORAGE • 

General Description: This clause must be included if 
the object computer is not equipped with the print- 
storage feature. 

Example: Figure 2 shows a sample object-computer 
paragraph. 
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Figure 2. object-computer Paragraph 



MEMORY SIZE 



t 4000} 

< 12000 f CHARACTERS 

(leooo ; 

ADDRESS integer-1 THRO" 



4000 

8000 

12000 

16000 



Special-Names Paragraph 

Reference Format 

SPECIAL-NAMES . 



device-name-1 IS mnemonic-name- 1\ device-name-2 IS 



L< 



mnemonic-name-2 



■] 



switch-name-1 



ON 



STATUS IS condition-name-1 



] 



OFF STATUS IS condition-name-2 



] 



switch-name-2 



[■ 



■H 



AUTOCODER-name IS COBOL-name AUTOCODER . . 



[' 



General Description: This paragraph equates mne- 
monic-names to the standard names for actual ma- 
chine devices, equates Autocoder-names to cobol- 
names, and equates condition-names to the status of 
actual machine switches. 

Device-Names 

General Description: The standard device-names for 
the 1401 signal the cobol processor which devices 
are available in the object computer. They are writ- 
ten with mnemonic-names the programmer has used 
to refer to them in the procedure division. The 1401 
device-names are: 



Device-Name 
1402-R, n 
1402-P, n 
1403-P 
1403-CT, n 



Actual IBM 1401 Device 
1402 Card Reader 

1402 Card Punch 

1403 Printer 

1403 Printer Carriage 



For the 1402-R and 1402-P device-names, n is a digit 
specifying the stacker into which a card is to fall. For 
the card reader it must be a (normal read), 1 (read 
select), or 2 (common). For the card punch it must be 
(normal punch), 4 (punch select), or 8 (common). 
If one of the digits is invalid or is not included with a 
1402 device-name, the processor assumes that the 
stacker desired is 1 for a read operation and 4 for a 
punch operation. If n is coded, there must be a space 
between it and the device-name as in 1402-R, 1. 

Punched-card input and output devices should not 
be used with both the display and write verbs in the 
same program. The same restriction applies to using 
these devices with both the accept and read verbs. 



For the 1403-CT device name, n specifies which 
channel in the carriage tape terminates a particular 
carriage skip. It can be any number from 1 to 12. This 
name is used with the advancing option of the write 
verb (see Procedure Division). If n is not coded, the 
processor assumes that the skip is to channel 1. If n is 
coded, there must be a space between it and the device 
name as in 1403-CT, 3. 



[ 



AUTOCODER-name IS COBOL-name 



] 



]] 



General Description: This statement enables the pro- 
grammer to write Autocoder statements that refer to 
cobol data-names and procedure-names (see Enter). 
If an Autocoder name is used to refer to an area 
that has been defined by a cobol statement, the 
cobol name must be equated to the Autocoder name. 

Example: If TOTALS is a cobol name used to define 
a cobol area and the symbol TOTLS is used in an 
Autocoder statement to refer to the same area, the 
statement shown in Figure 3 must appear in the 
special-names section of the cobol program. 



.TiPi-rus, ,/,Si .ToxqA.s 
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Figure 3. Equating and Autocoder-Name to a COBOL-Name 



A symbol used as an Autocoder name must meet 
these requirements: 

1. It must be five characters long. 

2. It must begin with an alphabetic character. 

3. It cannot contain a special character. 

4. A blank cannot appear within the symbol. 

The cobol name must be a non-qualified proce- 
dure-name or data-name. It cannot be a condition- 
name. 

Switch-Names and Conditions 

General Description: A switch-name is written followed 

by the condition-names used to identify on status 

and off status. 

The standard 1401 switch-names are: 

Switch-Name Indicates 

1403-P-CB Printer Carriage Busy 

1403-P-C9 Sense Carriage Tape Channel 9 

1403-P-CV Sense Carriage Tape Channel 12 (Overflow) 

1401-SS x Sense Switch 

The x in 1401-SS x is the actual letter that repre- 
sents a specific 1401 sense switch. This must be a 
letter within the range A-G. There must be at least 
one space between 1401-SS and the letter used for x. 
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Figure 4. special-names Paragraph 



The status of these switches may be interrogated 
by expressions in the procedure division that use 
condition-names. 
Example: Figure 4 shows a sample special-names 
paragraph written for a 1401. 

Input-Output Section 

The input-output section has two paragraphs: 

The file-control paragraph names each file, identi- 
fies its input or output medium, and assigns it to one or 
more input-output devices. 

The i-o-control paragraph is a deferred feature for 
1401 cobol and thus can not be included in a 1401 
cobol source program. See Deferred Features. 

File-Control Paragraph 

Reference Format 

FILE-CONTROL. SELECT file-name-1 



•]■ 



ASSIG N TO device-name-1 

P reserv e j 1 [ alternate area[S]~| 

SELECT 

General Description: This paragraph names each file 
used in the source program., identifies its media, and 
assigns it to an input or output device. It also permits 
the programmer to specify an alternate input-output 
area for magnetic tape files if the 1401 has overlap 
processing. 

SELECT file-name-1 

General Description: Each file to be processed by the 
read or write verbs in the procedure division must 
be named in a select file-name entry. This file-name 
must be unique within the source program and must 
be described by a file-description entry in the data 
division of the source program. 

Example (Figure 5): 
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Figure 5. select 



ASSIGN TO device-name-1 



General Description: Each file must be assigned to an 
input or output device-name. The 1401 device-names 
that are valid in the file-control paragraph are: 



Device-Name 
TAPE(S) u a 
1402-R, u 
1402-P, u 
1403-P 



Description 
Magnetic Tape Unit 
Card-Reader 
Card-Punch 
Printer 



Magnetic-Tape Device-Names 

For magnetic-tape files, tape(s) is the device-name. It 
indicates that the file is to be assigned to a tape unit. 
The u specifies the particular unit to be assigned. It can 
be any digit from 1 to 6. The a specifies that an alter- 
nate unit is to be assigned. It can be any digit from 1 
to 6, but should not be the same digit that is used for u. 
The same tape unit (or alternate tape unit) should not 
be assigned more than once in a cobol source program. 
There must be a space between tape(s) and u and be- 
tween u and a. (If the user specifies an invalid u, the 
processor substitutes the value 6.) 
Example ( Figure 6 ) : 
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Figure 6. assign 

Punched-Card Device-Names 

The Punched-Card devices that are valid in the file- 
control paragraph are the card reader, the card punch, 



and the printer. Their device-names are written as de- 
scribed in Special-Names Paragraph. 



RESERVE 



JNo( 



ALTERNATE AREA[S] 



] 



General Description: This statement reserves one or no 
alternate area for a magnetic-tape file. One alternate 
area may be specified only if the object machine has 
the overlap feature. 

Example (Figure 7): 
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Figure 7. reserve 



Figure 8 shows a sample file-control paragraph. 
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Figure 8. file-control Paragraph 



Added Elective Elements — Environment Division 

The memory size option of the source-computer para- 
graph is not contained in the cobol General Informa- 
tion Manual, but is provided in the 1401 cobol proc- 
essor as it has been described in this publication. 

Deferred Elements — Environment Division 

Several elements are described in the cobol General 
Information Manual that are not contained in this ver- 
sion of 1401 cobol processor. These should not be 
coded in the environment division entries for a 1401 
cobol program. They are stated here for reference: 

1. The entire i-o-control paragraph (elective cobol 
element). 

2. The optional option of the file-control paragraph. 

3. The multiple reel option in the file-control 
paragraph and all other features that provide for 
automatic assignments of tape units for a file. 

4. The entire copy option. (The library tape for the 
1401 cobol processor does not presently support the 
copy feature.) 

5. The renaming clause in the file-control para- 
graph. 
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Data Division 



IBM 1401 COBOL Tape Labels 

The 1401 cobol processor provides for ibm 1401 cobol 
tape labels. These labels identify the file and specify 
the number of records in the file, the date it was cre- 
ated, and the length of time it must be kept. Two 
labels, a header and a trailer, are required for each 
labeled file. 

IBM Header Labels 

A header label is the first record of each reel of a file. 
It identifies the tape. The header label format is shown 
in Figure 9. 



FIELD NO. 


POSITION 


CONTENTS 


FIELD NAME 


EXAMPLE 


1 


1-4 

5 


1HDR 
Blank 


Header Label 
Identifier 


IHDRb 


2 


6-10 


5 Digits 


Tape Serial 
Number 


12345 


3 


11-15 


5 Digits 


File Serial 
Number 


54321 


4 


16 

17-19 

20 


3 Digits 
Blank 


Reel Sequence 
Number 


-002b 


5 


21-30 


10 Characters 


File Identification 
Name 


PAYRLMASTR 


6 


31-35 


5 Digits 


Creation Date 
(00-99)(00 1-366) 
Year Day 


63203 


7 


36 

37-39 

40 


3 Digits 
Blank 


Retention Cycle 
(000-365) 


-007b 


8 


41-80 


Not used 







Figure 9. cobol Header Label Format 

Header Label Identifier 

These four characters indicate that the information con- 
tained in the record is the header label of a tape reel. 

Tape Serial Number 

These five digits identify the reel of tape within an in- 
stallation. Each reel of tape should be given a tape 
serial number as soon as it is received at the installa- 
tion. IOCS routines do not affect the tape serial num- 
ber in a tape label. 

File Serial Number 

These five digits indicate a particular application or job 

number within an installation, 



Reel Sequence Number 

These three digits identify the reels in cases where mul- 
tiple reels are needed for a specific job or application. 
The first reel is numbered 001 unless the user specifies 
another number. 

File Identification Name 

These ten characters identify the file. For example, 

payrlmastr identifies the tape as the payroll master 

file. 

Creation Date 

These five digits contain the date on which the file was 
written originally. The two high-order digits indicate 
the year (00-99), and the remaining three digits indi- 
cate the nth day of that year (001-366). 

Retention Cycle 

These three digits indicate the number of days the file 
is to be kept after the date the file was originated. Files 
should be preserved until all output data produced 
from them has been used successfully as new input. 
This ensures that any file that requires this file as input 
can be reconstructed if necessary. 

Header labels provide for a 365-day maximum reten- 
tion cycle. If the file must be kept indefinitely, the pro- 
grammer can specify this by putting the digits 99 in the 
two high-order positions of the creation-date field. 

IBM 1401 COBOL Trailer Labels 

The last information record in a tape reel is a trailer 
label. It indicates that the reel currently being proc- 
essed is the last reel of a file or that more reels must be 
processed. Trailer labels are written after the last rec- 
ord in the reel has been processed. 

The ibm cobol trailer label format is shown in Fig- 
ure 10. 



Field 
No. 


Posi- 
tions 


Contents 


Field Name 


Example 


1 


1-4 


"IEOF or 
»EOR" 


Trailer Label 
Identifier 


IEOF 


2 


/ 5 

\ 6-10 
ljl-80 


Blank 

5 Digits 
Not used 


Block Count 


13430 



Figure 10. ibm 1401 cobol Trailer Label Format 

Trailer Label Identifier 

These four characters indicate that the information con- 
tained in the record is the trailer label of a tape reel. 
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Block Count 

This field contains the number of blocks contained in 
the reel. A count is developed during processing and is 
entered in the trailer label record. 



record will be substituted if there are not enough data 
records to fill the last block. 

Figure 13 shows a fixed-length, block tape record 
with record marks and padding. Each block contains 
four records. 



Record Formats for Tape Files 

Detailed information about record formats is presented 
in the publication Input/Output Control System: Speci- 
fications and Operating Procedures for IBM 1401 and 
1460, Form C24-1462. General information is pre- 
sented in the following sections. Records for tape files 
may be as large as 999 characters. 

Form-1 Records 

Form-1 tape records are fixed-length, unblocked, with 
or without record marks. Fixed-length implies that all 
records in the file have the same number of characters. 
Unblocked means that one data record is contained in 
one tape record. A record mark (4=) is a special char- 
acter written at the end of a data record to indicate that 
the preceding character is the last record character. If 
input records are form 1 but are to be written as out- 
put in form 2, or 4, they should have record marks. 
Otherwise the use of record marks is optional. Tape 
records are physically separated by a section of blank 
tape called an Inter-Record Gap (IRG). Figure 11 
shows an example of form-1 records with record marks. 
Figure 12 shows a form-1 record without record 
marks. 

Form -2 Records 

Form-2 records are fixed-length, blocked, with record 
marks, and with padding of short-length, blocks. 
Blocked means that more than one data record is con- 
tained in one tape record (two or more data records 
occupy the space between two interrecord gaps ) . Rec- 
ord marks must be used to separate the data records. 
Padding means that spaces (blanks) are used to fill 
the last block for a file if there are not sufficient data 
records to fill it. Thus, a fixed-length block will always 
contain the same number of characters, but a blank 



Form-3 Records 

Form-3 records (variable unblocked) are not permitted 
with 1401 cobol. 

Form-4 Records 

Form-4 tape records are variable-length, blocked, with 
record marks and a Record Character Count (RCC) 
field in each record, and a Block Character Count 
(BCC) field in each block. Variable-length implies that 
all the records in a file do not contain the same number 
of characters. 

Block Character-Count Field 

A four-character field at the beginning of each block 
contains a count of the total number of characters in the 
block (including the block character-count field itself). 
The BCC field has AB zone bits (ibm card code 12- 
punch) over the units position. This count is used to 
check wrong-length record conditions. 

Record Character-Count Field 

A record character-count field of three characters in 
each record contains a count of the number of charac- 
ters in that record, including the RCC field itself and 
the record mark. This field must be in the same relative 
position in each record (the character size of each CI 
in Figure 14 is the same). Figure 14 shows the record 
format for a form-4 record. 



Note: When programming for form-4 or form-2 
tape records, the record entry must allow a position 
for the record mark. For output records, the record 
mark must be moved into the record area before the 
record is written. 



Record 1 



Record 2 



Record 3 



Figure 11. Form-1 Record with Record Marks 



Record 1 



Record 2 



Record 3 



Figure 12. Form-1 Record without Record Marks 
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Figure 13. Form-2 Record with Record Marks 
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C2 



■C 1- 



C2 



C 1- 



C2 



R ! 

C • 
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Record 1 



Record 2 ■ 



Block 



Record 3- 



Figure 14. Form-4 Record 



Record Formats for Punched-Card Files 

Card Read-Punch Records 

Records of files assigned to the 1402-R and the 1402-P 
must be eighty characters long, unblocked, and may or 
may not have record marks in the 80th character posi- 
tion ( card column 80 ) . This is equivalent to the f orm-1 
record described previously for tape files. 

Printer Records 

Records of files assigned to the 1403-P must also have 
form-1 record format. For the 1403 printer the fixed 
record size must be equal to the number of print posi- 
tions on the printer (100 or 132). 

Data Division Language Specifications 

The data division of a cobol source program is divided 
into three major sections: 

FILE SECTION. 

WORKING-STORAGE SECTION. 
CONSTANT SECTION. 

The file section describes the input and output files 
with respect to content and organizational format. It 
has two major subdivisions: the file-description entry 
that specifies the physical characteristics and organi- 
zation of the input and/or output data, and the record- 
description entry that describes the individual items 
contained in the file records. 

The working-storage section describes the areas of 
1401 core storage where intermediate results and other 
items are stored temporarily at object-program execu- 
tion time. 

The constant section describes fixed items of data 
that remain unchanged during the running of the ob- 
ject program. A date, for example, might be a fixed 
item, or constant. 



The 1401 cobol presentation format for the data 
division is: 
data division, 
file section. 

File-Description Entries and 

Record-Description Entries 

WORKING-STORAGE SECTION. 

Record-Description Entries 

CONSTANT SECTION. 

Record-Description Entries 

File-Description Entry 

General Description: A file-description entry must be 
written for each file to be processed by the object 
program. It includes specifications for the mode in 
which the file is recorded, the record and block size, 
label record information, and the names of the data 
records that make up the file. A value clause is re- 
quired when label records are standard. 

Reference Format 

FD file-name RECORDING MODE IS mode 



C(RECORD[S] 
BLOCK CONTAINS integer-1 j CHARACTER[S] 

[- 



}] 



RECORD CONTAINS [integer-2 TO] 



integer-3 CHARACTER^] 



LABEL RECORD[S] 



n 



{r}{ 



] 



STANDARD 
OMITTED 



VALUE OF data-name-1 IS literal \data-name-2 IS 



DATA RECORD[S] 



[* 



■]] 



ARE 
IS 



> data-name-3 I data-name-4 
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General Description: The level indicator identifies the 
beginning of the file-description entry and precedes 
the file name assigned by the programmer. 

Example (Figure 15): 



EJLo. 



RAYfibttASiTft, 



i i. i 



Figure 15. fd File-Name 



C 



RECORDING MODE IS 1 



] 



General Description: This clause specifies the mode in 
which the file is recorded. A 1 indicates the move 
mode, even-parity, recording mode 1 is the only re- 
cording mode implemented by 1401 cobol. 

If the recording mode clause is not included in 
the source program, the processor assumes recording 
mode 1. 



BLOCK CONTAINS integer-1 



RECORD[S] 
CHARACTER^] 



!] 



General Description: This clause must be included if 
more than one data record is included in a tape rec- 
ord ( other than form 1 ) . It indicates the size of the 
block in records or characters. The size may be stated 
in terms of record(s) for form-1 or form-2 records 
where integer-1 is the number of data records in the 
block. 

The size must be stated in terms of character(s) 
for form-4 records where integer-1 is equal to or 
greater than the number of characters in the longest 
block of the file. This number includes the four- 
character block count field (BCC). See also Form-4 
Records. 

Example: The largest block in the payrlmastr file con- 
tains 500 characters plus the BCC field (Figure 16). 



r • 


B 

12 16 20 24 26 32 36 40 


44 46 


iii 


Black, aomtaiais. juv* r.HARACTE.Rs , , 




i i i 


' ' i i ' i i 1 1 i i i i i i i i i i i i i i 



Figure 16. block contains 



[ 



REC ORD CONTAINS [integer-2 TO] 

intcger-3 CHARACTER^] 



General Description: The record contains clause may 
be used to specify the number of characters in the 
data records. Because the record description entries 
define the size of each data record, this clause is 
never necessary. However, if the programmer wishes 
to include it, integer-2 specifies the number of char- 
acters in the smallest record in the file, and integer-3 
specifies the number of characters in the largest 
record. 

Fixed-length records must be specified using in- 
teger-3 only. Variable-length records are specified by 
using both integer-2 and integer-3. 

Example: The records for a certain file are variable 
length. The smallest record size is 75 characters; the 
largest is 86 characters (Figure 17). 



16 20 24 28 32 36 40 4« 4f_ 



RE,CO.R& fiONTAIMS ,75, T.Q B.fc. £HARACT.fr Rft 



■ i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i , 11,11, 1 



Figure 17. record contains 



LABEL RECORDJS] j IS I j 



STANDARD 
OMITTED 



General Description: This required clause states 
whether header and trailer tape label records are 
1401 cobol tape labels or omitted. The 1401 cobol 
processor can handle only 1401 cobol tape labels 
as described previously. For punched-card files the 
omitted option must be used. 

Example: Figure 18 shows a label record entry for a 
punched-card input file. 



i 

7 


A 

6 


B 
12 16 20 24 26 32 36 


40 


44 


46 








LABEL, .RE.CAR.CL& ARE, OMI.T.T.E.D. . . . . i . . ....... 




i , , 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 , 1 , 1 1 1 1 1 1 1 1 1 



Figure 18. label records 

Today's Date 

If standard label records are specified for output files, 
today's date must be in core storage at object-program 
execution time. To enter the current date in the object 
program, insert a date card just ahead of the ex card 
produced by the Autocoder processor. The ex card is 
the last card in the object program. The format for the 
date card is: 

Card Columns Contents 





YR DAY 


1-5 


xxxxx 


40-46 


L005199 


47-53 


N000000 


54-60 


N000000 


61-67 


NO00000 


68-71 


1040 
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VALUE OF data-name-1 IS literal-1 \data-name-2 IS 



■] 



General Description: The cobol programmer may 
specify the items of information that appear in the 
label records of tape files. These items must be sup- 
plied by using a value of clause if standard header 
labels are used. 

Data-name-1 and data-name-2 are the names of 
the fields contained in the header label record. Lit- 
em?-! and literal-2 refer to the contents of the re- 
spective fields. Figure 19 is a chart showing the vari- 
ous data names and the lengths of their associated 
literals (an represents alphanumeric values and n 
represents numeric values). It also shows the rela- 
tionship between use of the entries and the type of 
label checking that will be applied to an input or out- 
put file. All entries in the chart, except those noted 
by one or two asterisks, are required. 

Example: Figure 20 shows how identification and a 
retention cycle of 286 days are supplied for an out- 
put file. 



DATA RECORD[S ] i Jg 



ARE f data-name-3 



I data-name-4. . . 



General Description: Data-name-3, data-name-4, etc., 
must each be the subject of a record-description 
entry that has a level-number of 01. 

If the file contains more than one type of record, 
a different data name must appear for each type. 
Data-name order is not important. 

If one record is read from a given file and another 
is read from the same file, the second record replaces 
the first in the read-in area. Thus, if two records are 
needed for processing at the same time, the first rec- 
ord must be saved by moving it to another area of 
storage (such as a work area) before the second rec- 
ord is read. 

Example: Figure 21 shows a sample data record 
clause. In this example, recorda and recordb are 
both in the same file and are described in a record- 
description entry as level 01 records. 



Record-Description Entry 

General Description: The record-description entries 
in the cobol source program provide detailed infor- 
mation about each item of data that will be needed 
during the running of the object program. Each such 
item must have its own entry consisting of a level- 
number, a data-name, and a series of independent 
clauses. 



Reference Format 

level-number ] — f 

< data-name-1 > 



data-name-1 > [__ 
SIZE IS integer-1 



REDEFINES data-name-2 



] 



( CHARACTER^] ) 
/ DIGIT[S] ) 



[ 



OCCURS integer-2 TIME[S] 



ri T FFT ) I 
POINT LOCATION IS . — — _f integer-3 PLACE[S] 
t RICtHT) I 



CLASS IS 



( ALPHABETIC \ 
) NUMERIC f 

] ALPHANUMERIC f 

(an )_ 



[ 



_. T ^„, IT __ TC Any allowable combination of characters and 



( LEFT ) 
JUSTIFIED )— T ( 1 



ZERO SUPPRESS 



symbols as described in Chapter 6 (cobol GI) 
LEFT )~] 



CHECK PROTECT 
FLOAT DOLLAR SIGN 



[le 
blank when zero 



LEAVING integer-4 PLACE[S] 



1 



VALUE IS 
VALUES ARE 



f literal-1 [ THRU literal-2] literal-3 

[ THRU literal-4 ] . . . 



General Description: The level-number shows the re- 
lationship between items in a record. 

The highest level is 01 and the lowest level is 49. 
Level 77 applies to non-contiguous items of data that 
are elementary in themselves. Level 88 denotes a 
condition name and must appear immediately after 
the entry that describes the data name with which a 
condition name is associated. 

Each level number must be associated with a data- 
name or the key word filler, filler must describe 
items that appear in records but are not referred to 
within procedure statements. 
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DATA-NAME 


Complete Checking 


Partial Checking 


INPUT 


OUTPUT 


INPUT 


OUTPUT 


ID or 
IDENTIFICATION 


10 AN 


10 AN 


10 AN 


10 AN 


CREATION DATE 


5 N 








RETENTION-CYCLE 


3 N 


3N 




3 N 


FILE-SERIAL- 
NUMBER 


*5 N 


*5 N 






REEL-SEQUENCE- 
NUMBER 


**3 N 


**3 N 







* The use of a FILE-SERIAL-NUMBER entry implies full 

label checking. 
** If not specified, 001 will be assumed. 



Figure 19. Data-Names and Lengths of Their Associated Literals 



Items must be written in the record-description 
entry in the same order in which they appear in the 
record. 



SIZE IS [integer-1 TO] integer-2 



CHARACTER^] 
DIGIT[S] 



[ DEPENDING ON data-name] 

General Description: This clause tells the processor how 
many characters (or digits) the data item contains. 

This size is interpreted by the 1401 cobol proc- 
essor in terms of characters if either the optional 
word character[s] or digit[s] is used or if neither 
of the optional words is used. 

To specify the sizes of variable-length records, 
(form 4) integer-1 and integer-2 and depending on 
data-name must be used. Integer-1 specifies the num- 
ber of characters in the smallest record and integer-2 
specifies the number of characters in the largest rec- 
ord, depending on data-name identifies the elemen- 
tary items whose value is the record character count 
(refer to Record Character-Count Field). Integer-1 
and depending on data-name may be used only with 
form-4 records. 



Example: Figure 22 shows a size entry for a form-4 
record which can contain from 50 to 150 characters. 
reccount is the data-name the programmer has used 
to identify the RCC field. 

The size of fixed-length records is specified by 
using the form: 



„„„ I CHARACTER^] ) 

SIZE IS integer-2 |j DIGIT[S] \ 



where integer-2 is the exact number of characters 
contained in the record or item of data. 
Example: Figure 23 shows a size entry for a fixed- 
length record whose size is eighty characters. 

OCCURS integer-2 TIME[S] 

General Description: The occurs clause describes a 
sequence of data items of the same format. For ex- 
ample, if a rate table contains ten rates, each made 
up of five characters, fifty storage positions can be 
reserved for the rate table by using one occurs 
clause. An individual rate from this rate table can be 
referred to in the procedure division by subscripting 
the data-name assigned to the rates. The maximum 
number of positions that can be reserved by an 
occurs clause is 999. 

Example: Figure 24 shows how an occurs clause for a 
rate table may be coded. 

In the procedure division a statement using rate 
(2) as a subscripted data-name can refer to the sec- 
ond rate in the rate table (Figure 25). 

The occurs clause may not be used with an item 
whose level number is 01, 77, or 88. Integer-2 must 
be a positive numerical literal having an integral 
value greater than zero. 

POINT LOCATION IS j ^^ T [ integer-3 PLACEfS] 

General Description: This clause describes the decimal 
point location for a number so that the processor can 
provide for the correct alignment of assumed decimal 
points during computation. It can be used only with 
an elementary item. Integer-3 must be a numerical 
literal with an integral value. 

Example: The point clause (Figure 26) causes an as- 
sumed decimal point to be located two positions to 
the left of the units position of the item whose data- 
name is grosspay (999V99). 

Note that the assumed decimal point is not in- 
cluded in the size of the item because it will not 
actually exist in 1401 core storage at program-execu- 
tion time. 
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CLASS IS 



ALPHABETIC 
NUMERIC 
ALPHANUMERI C I 

AN 



General Description: This clause tells the cobol proc- 
essor whether an item is numerical, alphabetic, or a 
combination of alphabetic and numerical characters 
with or without special characters (alphanumeric). It 
is required only if no picture clause is included in 
the source program. The class clause may describe 
both elementary and group items at any level. 

The sample problem shows cobol entries without 
either class or picture clauses. The 1401 cobol Proc- 



iMAUJ,Ei .QK .LP il.S ^PAV.i aLMAST.R' 



toETiENiTlflMi-iC YCLiEi ■ I .S. ,2,8,6, 



JCJ2fi^LCW_-J2AEl_ JA.jfiAQaa. 



Eil.L E.-.SE.R.I.AI.i-iMiUiMBiE.R, , I,S, .1.23AS 



fe,E l EL-,S,EiQU,EiMC,E-,MU,MB,E,K, ,0,0,2, . , 



Figure 20. identification and Retention Cycle 



essor assumes items not specified by either of these 
clauses to be alphanumeric. 

numeric specifies an item that consists entirely of 
digits 0-9, and a plus or minus sign if one is neces- 
sary. 



EtATA .fZEflORa S, ARE .RECQftftA .B ECARDft 



i i ■ i i i i 



Figure 21. data records 
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Figure 22. size Variable Length 
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Figure 23. size Fixed Length 
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Figure 24. occurs 
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Figure 25. Subscripting 

alphabetic specifies an item that consists entirely 
of the letters of the alphabet and spaces. 

alphanumeric specifies an item that consists of 
any characters in the 1401 character set in any com- 
bination (all numeric, all alphabetic, or mixed). 
Example: Figure 27 shows a class clause that defines 
a numeric field of five digits with a sign over the 
units position. 

[PICTURE IS ^ n ^ a ^ owa ^ e combination of characters and I 
symbols as described in Chapter 6 (cobol GI) 

General Description: The picture clause can describe 
elementary items. It can be used instead of the size, 
point, class, editing, and blank clauses of a record- 
description entry to state the characteristics of an 
item in a more compact form. 

The rules for forming a picture for a data item are 
given in the cobol General Information Manual. 
However, with 1401 cobol the S symbol for an op- 
erational sign should not be used, and the ele- 
mentary item generated from a picture clause 
must not exceed 999 positions of core storage. 

Example: The picture clause shown in Figure 28 de- 
scribes an item whose data name is 3C-one. The 



size of this field is five numeric characters with an 
asumed decimal point two places to the left of the 
units position. 



JUSTIFIED 



LEFT \ 
1 RIGHT ) 



General Description: This clause specifies the position 
data is to occupy if it is moved during processing 
from one location to a larger location. 

If a justified clause is not included in the cobol 
source program, numerical items with be automati- 
cally right-justified (the data in the units position of 
the original location will be placed in the units posi- 
tion of the new location), and the unusued positions 
to the left will be filled with zeros. If a numerical 
data item includes an assumed decimal point, align- 
ment is made during the automatic justification. 

alphabetic and alphanumerical items will be 
left-justified (the data in the high-order position of 
the original location will be placed in the high-order 
position of the new location), and unused positions 
to the right will be filled with blanks. 

The justified clause permits the programmer to 
reverse the justification of an item (numerical items 
can be left-justified and alphanumerical items right- 
justified) except when an assumed decimal point has 
previously been specified for the item. 
Example: The numerical item deduct is eight charac- 
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Figure 26. size and point Location 
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Figure 27. class 
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ters long. During processing, a six-character field is to 
be moved to deduct and is to be left-justified. Figure 
29 shows a justified clause that specifies that the 
data moved to the deduct field will be left-justified. 
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Figure 28. picture 

Special Editing Functions 

These cobol editing functions may be used only when 
the object computer is equipped with the expanded 
print-edit feature: 

1. High-order CR or minus signs and high-order DB or 
plus signs. 

2. Floating plus and minus signs, and floating dollar 
signs. 

3. Check protection (asterisk fill). 

4. Decimal suppression for blank or zero fields. 
Editing of a single-digit field cannot be specified in 

editing or picture clauses. 

When the editing options for floating plus, minus, 
and dollar sign are used, more than two floating char- 
acters must be specified in the picture or editing 
clause. For example, if $$99 is specified, the $ will not 
float, but zero suppression will take place. However, if 
$$$9 is specified, the dollar sign will float and zero sup- 
pression will take place. 

If a group item is moved to an elementary item 
that requires editing, the diagnostic invalid use of 
editing will result. (A report item can only receive 
numeric data; the 1401 tape cobol compiler considers 
a group item as alphameric data.) 

Editing Clauses 



f ZERO SUPPRES S 
) CHEC K PROTECT 
_ I FLOAT DOLLAR SIGN 



LEAVING integer-4 PLACE[S] 



General Description: This clause permits the program- 
mer to specify certain kinds of editing without using 
a picture clause. Only elementary numerical items 
may be described using the editing clause. 



zero suppress causes high-order zeros to be re- 
placed with blanks up to but not including the first 
non-zero digit or an assumed or actual decimal point 
encountered in a numerical item. 

When using zero suppression in either the picture 
clause or the editing clause, the high-order position 
must not be the only character specifying zero sup- 
pression. For example, Z9 is incorrect, but ZZ is 
correct. 

check protect causes all high-order zeros to be 
replaced with asterisks under the same conditions as 
zero supress. 

float dollar sign causes all high-order zeros to 
be blanked and a dollar sign to be placed to the left 
of the first significant character or decimal point. The 
editing clauses can be used only to affect zeros to the 
left of the decimal point. Zeros to the right of the 
decimal point must be cleared (if desired) by a 
blank clause. 

The leaving option restricts the suppression of 
zeros or insertion of asterisks and the dollar sign by 
specifying that a certain number of places (integer-4) 
to the left of the decimal point are to be undisturbed 
(unedited). 
Example: Figure 30 shows an editing clause that spec- 
ifies that high-order zeros are to be replaced with 
blanks. Assume that a field called fica is to be edited 
during processing in preparation for printing. If the 
value of the field moved to fica appears as 00508 
before editing, it will appear as 508 after editing. 
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Figure 30. Editing 






I BLANK WHEN ZERO 

General Description: This clause causes the described 
item to be filled with blanks whenever the value 
(contents) of the item field is zero. It can be used 
only with elementary items, blank when zero over- 
rides all editing specifications prescribed by a pic- 
ture or editing clause. 

Example: Figure 31 shows a blank when zero clause 
used with a float dollar sign clause. Without the 
blank when zero clause, a zero pay field would ap- 
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Figure 29. justified 
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Figure 31. blank when zero 

pear after editing as $.00. The blank when zero 
clause causes seven blanks to appear in the pay field 
when it is edited for printing. 



VALUE IS 
VALUES ARE 






I literal-1 [ THRU literal- 2] literal-3 

[ THRU literal-4 ] . . . I. 



General Description: A value clause can state the ini- 
tial contents ( value ) of a data item in the working- 
storage section or constant section. It can also be 
used with the thru option to define the value of a 
condition name (level-88 item) in the file section 
and working-storage section. 

If the value clause is not used to define the initial 
values of working-storage items, their contents at 
program execution time will be unpredictable. 

If the value clause specifies a numerical literal, 
an operational sign will be developed (placed over 
the units position of the numerical field) only if the 
literal is preceded by a plus or minus sign. A figura- 
tive constant may be used in the value entry where 
a literal is specified. 
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Figure 32. value 

The thru option is not described in the cobol 
General Information Manual. It may be used only 
with condition names as shown in Figure 32. 
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REDEFINES data-name 

General Description: This clause permits the program- 
mer to redefine areas of storage that have been pre- 
viously defined by a record-description entry. 

Note the following additional points in connection 
with the use of redefines: 

1. If data-name-2 is not unique, it must be qualified 
by one or more additional names until it is unique. 

2. Data-name-2 must not be subscripted. 
Example: Figure 33 shows a redefines clause used to 

define a table of constants. 

The Constant and Working-Storage Sections 

The record-description entries described for the file 
section apply also to the constant and working- 
storage sections. 

These sections begin with the header line working- 
storage section or constant section and are followed 
immediately by the record-description entries. 

Added Elective Elements of the Data Division 

These elective elements of the record-description 
entry are not specified in the cobol General Informa- 
tion Manual, but are contained in the ibm 1401 cobol 
processor: 

1. The depending on data-name and the to integer-2 
options of the size clause. 

2. The thru literal-2 and the literal-3 thru literal-4 
options of the value clause. 

Deferred Elements of the Data Division 

The copy option is contained in the cobol General In- 
formation Manual, but is not contained in this version 
of the ibm 1401 cobol processor. 

The usage, signed, and synchronized clauses have 
no meaning in a 1401 cobol program and should not 
be used. 

A group mark should not be declared as an alpha- 
meric literal. 
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Figure 33. redefines 
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Procedure Division 



The procedure division is the operational part of the 
cobol source program. Once the data has been de- 
scribed, the programmer tells the cobol processor what 
steps the machine must take to read the input data, 
process it, and write it as output on punched cards, 
magnetic tape, or a printed form. 

The cobol verbs are the main elements in the pro- 
cedure division. They are described in detail in the 
cobol General Information Manual. However, some 
verbs have special meaning when used in a 1401 cobol 
source program. This additional information is pre- 
sented in the following section. 

The DISPLAY Verb 

General Description: The ibm 1403 Printer (1403-P) is 
the standard output unit for the display verb. How- 
ever, information may also be displayed via the ibm 

1402 Card Read-Punch (1402-P). As many printer 
lines or punched cards will be used as are necessary 
to display the information contained in the area of 
core storage whose data name is specified in the 
display statement. 

The object program initiates a skip to channel 1 in 
the carriage tape if a form overflow occurs in the 

1403 printer. If the display verb is used in the pro- 
cedure division to address the printer, the processor 
assumes that the printer will have a carriage tape 
with punches in channel 1 and 12 (overflow) at 
object-program execution time. 

Examples: The statement shown in Figure 34 will cause 
the contents of the area whose data name is grand- 
total to be displayed on the 1403 printer. 
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Figure 34. printer display 

The statement shown in Figure 35 will cause the 
contents of grand-total to be punched into cards, 
if the mnemonic-name card punch has been as- 
signed to 1402-P in the special-names paragraph of 
the environment division. 



The ACCEPT Verb 

General Description: The ibm 1402 Card Read-Punch 
(1402-R) is the standard input unit for the accept 
verb. 

Example: Figure 36 shows an accept statement that 
will cause data to be read from the card reader and 
moved to an area whose data-name is cancella- 
tions. If more than eighty storage positions are de- 
fined by cancellations, multiple cards will be read 
from the 1402 until the area is filled. 
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Figure 36. accept 

The WRITE Verb 
Reference Format 
WRITE record-name [FROM area-name] 

|~( AFTER ) 
} BEFORE } 



ADVANCING 



j integer LINES f 
\ mnemonic-name ) 



General Description: This statement causes a logical 
record to be released for an output file. 

Record-name is the name given to the record de- 
fined at the 01 level in the file section of the data 
division. Area-name is the name given by the pro- 
grammer to the core-storage area from which the 
record is to be written. 

The advancing option is used for spacing lines on 
output documents on the 1403 printer (1403-P). 

after and before in the advancing option control 
printer carriage spacing before or after the write 
verb is executed. Integer lines specifies how many 
lines should be spaced. Mnemonic-name is the name 
assigned in the special-names paragraph to a chan- 
nel in the carriage tape and is used when carriage 
skipping is desired instead of line spacing. The skip 
occurs to the line that corresponds to the specified 
punch in the carriage tape. 
Examples: Figures 37, 38, 39, and 40 show sample 
write statements. 
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Figure 35. punch display 



i i iWflliT,Ei EihP l »»O l YfiiEr-ifi l E l CiO l R l ia_ 



''''''''i'i' 



i i i i i i i i i i i i 



Figure 37. write 
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Figure 38. write and space before printing 
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Figure 39. write and skip after printing 
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Figure 40. conditional write 



The EXAMINE Verb 
Reference Format 



( ALL ) 

TALLYING < LEADING > 

I UNTIL FIRST ) 

literal-1 [REPLACING BY literal-2]\ 



EXAMINE data-name 



( 



ALL ) 

REPLACING f LEADING V 

I [UNTIL] FIRST J 

literal-3 BY literal-4 



General Description: The examine verb is used to re- 
place a given character and/or to count the number 
of times it appears in a data item. 

Any literal used in an examine statement must be 
a member of the character set associated with the 
class specified for data-name. Thus, if the descrip- 
tion of data-name in the data division specifies a 
class that uses less than the full character set (nu- 
meric or alphabetic), then each literal used in an 
examine statement must be one of the characters in 
the restricted set. Thus, if the class of data-name is 
numeric, each literal used in the statement must be 
a numeric character. 



All literals in examine statements are considered 
alphanumeric, are one character in length, and are 
enclosed by quotation marks. When an examine 
statement is executed, the examination begins with 
the leftmost character of the data item and proceeds 
to the right. Each character in the item represented 
by the data-name is examined in turn. If the data 
item being examined is numeric, any operational 
sign associated with the item will be ignored. 

The effect of an examine statement depends on 
the options employed by the programmer as follows: 
If tallying is specified: 

A count of the number of certain characters in 
data-name is made when the tallying option is 
used. This count replaces the value of a special reg- 
ister called tally, which is accessible to the pro- 
grammer. The count depends on which of three op- 
tions of tallying is used: 

1. If all is specified, all occurrences of literal-1 in 
the data item are counted. 

2. If leading is specified, the count represents the 
number of times literal-1 occurs before a character 
other than literal-1 is encountered. 

3. If until first is specified, the count represents 
the number of characters that are encountered be- 
fore literal-1 first occurs. 

If replacing is specified: 

The replacement of characters depends on which 
of the four options of replacing is used when the 
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replacing option is used either with or without the 
tallying option: 

1. If all is specified, liter al-2 or liter al-4 is substi- 
tuted each time literal-1 or literal-3 occurs. Literal-2 
is substituted for literal-1, and literal-4 is substituted 
for literal-3. 

2. If leading is specified, the substitution ends when 
a character other than the literal (literal-1 or literal-3) 
is encountered or when the rightmost character of 
the data item is reached. 

3. If until first is specified, the count represents the 
number of characters that are encountered before 
literal-1 first occurs. 

4. If first is specified, literal-3 is replaced by literal- 
4 only the first time literal-3 occurs. 

Example: Figure 41 shows a use of the examine verb. 

The ENTER Verb 

General Description: The enter verb permits the pro- 
grammer to use Autocoder statements in a cobol 
source program. 



The language name used with 1401 cobol is auto- 
coder. The Autocoder statements must be presented 
to the cobol processor immediately following the 
enter autocoder statement, and they must be fol- 
lowed by an enter cobol entry that indicates the 
point at which the cobol source language is resumed. 

Each enter autocoder statement must constitute 
a separate paragraph in the source program. The 
enter cobol statement used for returning to cobol 
from Autocoder must either constitute a separate 
paragraph or be the first entry of a paragraph. The 
name of the paragraph must be on the same line as 
the enter cobol statement. 

These specifications must be maintained when 
using Autocoder entries in a cobol program: 

1. Autocoder statements must be coded in Auto- 
coder format (label starting in column 6, operation in 
column 16, and operand in column 21). 

2. The symbols used in Autocoder statements must 
be five characters long. 
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Figure 41. examine Verb 
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3. Autocoder statements can be written to refer to 
cobol names if they are related by entries in the 
special-names section of the cobol program. How- 
ever, cobol statements cannot be written to refer to 
Autocoder names. 

4. The word-mark status of a constant or area de- 
fined by a cobol statement must be the same aftei 
the Autocoder statements are executed in the object 
program as it was before they were executed. Thus, 
if it is necessary to write an Autocoder statement 
that sets or clears a word mark in such an area, the 
word-mark position of that area must be tested first 
so that the word mark can be reset or cleared before 
returning to the cobol program. 

5. No 1401 SPS statements can be included. 
Example: Figure 42 is an example that includes a sec- 
tion of Autocoder statements. 

6. Macro instructions may be given which refer to 
macros in the Autocoder library. 



The STOP Verb 



Reference Format 



( RUN ) 
( literal > 



General Description: This statement produces a 1401 
halt instruction which stops the execution of the 
object program. The run option of the stop verb 
causes an unconditional halt, and the program can- 
not be restarted. 

If the stop literal is numeric and within the range 
0-99, the literal 000-099 is displayed in the B-register 
if the halt occurs during the running of the object 
program. 
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If the stop literal is numeric and greater than 99 
or if it is alphanumeric, the address of the literal is 
displayed in the B-address register when an object- 
program halt occurs. 
Example: Figure 43 shows the stop statement. 



, , , L5T,o,P, .KiUfJ , , 
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Figure 43. stop Verb 

The OPEN and CLOSE Verbs 

The cobol language, as specified in the cobol General 
Information Manual, provides the ability to open an 
output file, process it, close it, and subsequently open 
it as an input file. It also provides for opening an input 
file, processing it, closing it, and subsequently opening 
it as an output file. These procedures are not handled 
by this version of the 1401 cobol processor, and are 
therefore classified as deferred elements. 



Exponents 

ibm 1401 cobol provides for integer or non-integer 
powers to be used in writing exponents. The sign of 
the power can be either plus or minus. Negative bases 
cannot be raised to other than an integer power. 

Conditional Statements 

Option 1 

IF conditional expression statement-1 . 



Option 2 



IF conditional expression 



C statement-2 \ 

| NEXT SENTENCE ) 



( OTHERWISE 
\ ELSE 



}{ 



statement-3 X 

NEXT SENTENCE ) 



Option 3 



(statement-4 AT END 



Hstatement-6 \ 

NEXT SENTENCE f 



{ 



OTHERWISE ) / statements 

] \ NEXT SENTENCE 



ELSE 



any imperative statement-8 followed by any conditional 
statement-9 



Statement-1 under Option 1 can be only a simple or 
compound imperative statement. 

Statement-2 and/or statement-3 under Option 2 and 
statement-! under Option 3 can be either imperative 
or conditional. If conditional, these statements can con- 
tain conditional statements in arbitrary depth. When 
conditional, the conditions within the conditional state- 
ments are nested. 

Statement-4 under Option 3 must be a read state- 
ment, statement-5 must be an arithmetic statement, 
and statement-6 can be only a simple or compound 
imperative statement. Statement-8 followed by state- 
ment-9 (to which the previous paragraph applies be- 
cause it is conditional) is an illustration of an impera- 
tive statement followed by a conditional statement. 
This is logically equivalent to statement-8 followed by 
a period followed by statement-9 beginning a new sen- 
tence. Option 3 in its entirety may be substituted for 
statement-2 and/or statement-3 under Option 2. 

An else or otherwise must be explicitly written for 
every conditional statement within a sentence. How- 
ever, the phrase else (otherwise) next sentence may 
be eliminated only if the phrase immediately precedes 
the period ending a sentence. 



Nested Conditional IF Statements 

The cobol programmer can combine several simple 
conditional statements into one by using a technique 
called nesting. The processor analyzes a nested state- 
ment by working from the inside to the outside of the 
statement. Thus, if all conditions are satisfied, the first 
imperative is executed; if all but the last condition are 
satisfied, the second imperative is executed, etc. 

Figure 44 shows outlines for four simple conditional 
statements. Figure 45 shows an outline for one nested 
conditional if statement that produces the same results 
as the four simple conditional statements shown in 
Figure 44. 

Figure 46 shows an excerpt from a cobol program 
in which four simple relational conditional expressions 
are substituted for the conditions shown in Figures 44 
and 45. 

The block diagram in Figure 47 shows the logic flow 
of the nested if statement in Figure 46. 



Added Elf ctive Elements of the Procedure Division 

The advancing option of the write verb is not con- 
tained in the cobol General Information Manual, but 
is contained in the 1401 cobol processor. Conditional 
statements within conditional statements are permitted. 
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IF (condition 1) AND (condition 2) AND (condition 3) AND (condition 4) GO TO LAB4 ELSE NEXT SENTENCE 
IF (condition 1) AND (condition 2) AND (condition 3) GO TO LAB3 ELSE NEXT SENTENCE 
IF (condition 1) AND (condition 2) GO T_0 LAB2 ELSE NEXT SENTENCE 
IF (condition 1) GO TO LABI ELSE NEXT SENTENCE 



Figure 44. Four Conditional if Statements 



IF (condition 1) IF (condition 2) IF (condition 3) IF (condition 4) GO TO 

LAB4 ELSE GO TO LAB3 ELSE GO TO LAB2 ELSE GO TO LABI ELSE NEXT SENTENCE 



Figure 45. Nested Conditional if Statements 
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Figure 46. Nested Program Sample for Conditional if Statements 
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Figure 47. Conditional Logic 



Deferred Elements of the Procedure Division 

These elements are described in the cobol General. In- 
formation Manual but are not implemented by this 
version of the 1401 cobol processor: 

1. The reel option of the close verb. 

2. The corresponding option of the move verb (elec- 
tive). 

3. The ability to process a given file as both an input 
file and an output file in the same program. 

4. The ability to use a group mark as an alphameric 
literal. 

5. The ability to use quote signs ( @ ) within a note 
statement. 
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General Information 



Character Sets 

ibm Character Set H must be used for source programs. 
This character set consists of the numerals through 9, 
the 26 letters of the alphabet, and 12 special characters. 
The ibm 1401 character set may be used only for alpha- 
numeric literals. The following are cobol (Set H) spe- 
cial characters with their equivalents in the ibm 1401 
character set: 

1401 Meaning 

space 

jt minus sign 

— ( hyphen 

& plus sign 

/ division sign 

.,. \ multiplication sign 

] check protection symbol 

□ right parenthesis 

% left parenthesis 

, comma 

$ dollar sign 

\ period 

] decimal point 

# equal sign 

@ quotation mark 

Figurative Constants 

LOW-VALUE(S) 

The value of this figurative constant is the space, or 
blank. The blank character is the lowest in the ibm col- 
lating sequence. 

HIGH-VALUE(S) 

This figurative constant is defined as the integer 9. The 

character 9 is the highest in the ibm collating sequence. 

QUOTE(S) 

This figurative constant is defined as the cobol char- 
acter (Set H) for the quotation mark. 

Additional COBOL Words 

The following words constitute an extension of the list 
of cobol words contained in the ibm General Informa- 
tion Manual describing cobol. id may be used in place 
of identification. The meaning and use of the other 
words have been described in this publication. 



Card Code 


COBOL 




( SET H ] 


blank 




11 


- 


12 


+ 


0-1 


/ 


11-4-8 


* 


12-4-8 


) 


0-4-8 


( 


0-3-8 


9 


11-3-8 


$ 


12-3-8 




3-8 


= 


4-8 


' 



ADVANCING 

BEFORE 

LINES 

VALUES 

ID 

RETENTION-CYCLE 

TAPE 

TAPES 

NO-RELEASE 

NO-OVERLAP 

NO-PRINT-STORAGE 

1402-R 

1402-P 

1403-P 

1403-CT 

1403-P-CB 

1403-P-C9 

1403-P-CV 

1401-SS 

CREATION-DATE 

FILE-SERIAL-NUMBER 

REEL-SEQUENCE-NUMBER 



Class Conditions 

The general information manual specifies that the class 
of a data item is either numeric, alphabetic, or alpha- 
numeric. It further specifies that the class condition 
tests an alphanumeric item at object time to determine 
whether it is wholly numeric or wholly alphanumeric 
in content. 

The source statement beginning: 

IF FD3LD-A IS NUMERIC . . . 

results in a character-by-character check of the value 
of field-a at object time. If an operational sign is pres- 
ent in the units position, the associated character will 
be interpreted as being numeric. Thus, —9 is inter- 
preted as minus 9, not as the letter R. 

if field-b is alphabetic . . . 

results in a character-by-character check of the value 
of field-b at object time. If each character in field-b is 
alphabetic, the item is considered alphabetic. 

Example: The following table shows how the class of 
an item is interpreted by the processor, depending 
upon which of the class tests is specified. The table 
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shows the result (yes or no) for each test and for 
each of the specified ranges of X. The X-character 
is used in the picture clause. It represents any char- 
acter in the 1401 character set. 



x-Character 


If Numeric 


If Alphabetic 


0-9 


Yes 


No 


SPECIAL 


No 


No 


CHARACTERS 






SPACE 


No 


Yes 


A-R 


Yes (if units 
position) 


Yes 


S-Z 


No 


Yes 



Continuation of Alpha Literals 

Alphanumeric literals must be preceded and followed 
by quotation marks. If an alphanumeric literal must be 
continued, a continuation symbol ( — ) must appear in 
column7, and a quotation mark must appear in col- 
umn 12. If the last character of an alphanumeric literal 
appears in column 72, column 7 must contain a con- 
tinuation mark, and columns 12 and 13 must both con- 
tain quotation marks. 



Sample Problem 

Here is a sample problem that is representative of file 
maintenance applications. It is not a source program 
for a unique problem. 

The IDENTIFICATION, ENVIRONMENT, and DATA DIVI- 
SIONS are complete in themselves. The procedure divi- 



sion contains only one statement that relates to device- 
and switch-name entries in the environment division, 
and illustrates the advancing option of the write verb. 
Figures 48, 49, 50, 51, and 52 describe the 1401 con- 
figuration and input and output record formats for the 
problem. Figure 48 shows the configuration for the ob- 
ject- 1401 system. Figure 49 shows the master input and 
output card record formats. Figure 50 is the master- 
record block format for the input and output tapes. 
Figure 51 is the new master-card record format. Figure 
52 is the form layout for the invoice. Figure 53 is the 
sample cobol program. 



New - Master - Record 



Master - Input - Record 




IBM 1401 

8 K 

No -Overlap 




Invoice - Line Master - Output -Record 

Figure 48. ibm 1401 Object Machine Configuration 
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MASTER -INPUT OUTPUT RECORD FORMAT 



-Field 3- 



Field 1 
(10) 



Field 2 
(15) 



Field 3A Field 3B Field 3C Field 3C 



(5) (7) 



-One 
(5) 



-Two 
(6) 



Field 4 
(15) 



Field 5 
(10) 



Field 6 
(10) 



Fid 
7 
(3) 



■Field 8- 



8A Field 8B Field 8C 



(2) 



(10) 



(2) (3) 



(2) 



Field 8 
(17) 

(10) 



(2) 



(3) 



(2) 



Field 8 
(17) 

(10) 



(2) 



(3) 



Field 8 
(17) 

(2) (10) (2) 



(3) 



Field 8 
(17) 

(2) (10) (2) 



(3)(1) 



Field 8 



Field 8A 



(2) 



Field 8B 



(10) 



Field 8C 

8C-One 8C-Two 
(2) (3) 



Figure 49. Master Input and Output Record Format 







MASTER -RECORD BLOCK FORMAT 
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Figure 50. Master Record Block Format 
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Col 1-10 


Col 11-25 




Col 26-42 

Col 31-42 


Col 43-57 


Col 58-67 


Col 68-77 


Col 
78-80 






Col 


Col 


Col 














26-30 


31-35 


36-42 










(10) 


(15) 


(5) 


(5) 


(7) 


(15) 


(10) 


(10) 


(3) 



Figure 51. New Master Card Format 
A ) Invoice - Header - Line 




Header-Label 



(20) 



INVOICE LINE 




Date-Line 



(16) 




B) Invoice - Detail - Line 



(10)] 



Qty 



(3) 



(2) 



Item 
No 



(5) 



(2) 



Description 



(20) 



1(2): 



Package and Size 



CL 
CD 
(2) 



PK 
(2) 



Irm 
Size 
■<3) 



Whse 
Loca 



Wght 
(2)1 (5) 



(2) 



Prices 



Prices 



Shelf 
Price 
(5) 



(2)1 



Retail 
(6) 



\(2) 



Unit 
Cost 
(6) 



(2) 



Extended 

Amount 

(7) 




C) Totals 





Total 
Weight 

(7) 



(3) 



Price -Totals 

Retail -Total Invoice' 

W>Z4 Total 
(10) &3)1 (8) 




Figure 52. Invoice Form Layout 
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program SAMpiP PROBLEM -iVO^ ^OfioZ. 


SYSTEM ^ ajL SHEET ± OF g, 




PROGRAMMER 


l0ENT Samp,l,p,-X 


SERIAL 
4 6 


7 


1 
A 'B 
8 ]l2 16 20 24 28 32 36 40 44 48 52 56 60 64 68 72 


0,4,0 




IftEiNlTliFilfiiATiliOiM .DiliViliSiliOiM,., , i i i 










...J__L 1 .1_.11 L_L_J. 1_L_L„ 


DiKiO 




P.ROGlRAM-.XD-, |\6,AnRL£, AMOCL iCOBO.L P.&aSi/PiAM' 


. 








. L..L._.l ILL 

1 1 1 1 1 1 


1 1 L 
1 1 .L. 
1.. 1.1... 


.1 1 . . 
._1_L _ 


Afro 




AmT.hIoAi- i 3",0iE, SMITH- 






J. I..L 1 






i 








nti-o 




£NiV,l!R,OitfM£,NiTi 1O1I ,\Z, / ,S, / ,0,/d ■ i 




.._ 


J...J _l_.l 


l..l_L. 


,. 11. J. - 






fli^O 




CamfIi.GiUiRAtiiOM s,EiGt,i,o,m- 










_J 1 


Oitud 




SAU.riC.E.-C.O.rlRuT.&R,-, J,BM-l,V,0l 


















p,7i0 




, i , IrtEiMoaV 5,1, ZiE tfOCO, CWARACiTiE.RS-! . 




















DM 




0,RT,Efc,T,-ro,MP,U,T,E/?,' , L T,RM-,l,-y,fli 




















0i1i<? 




, , , !A,SS,l,Gf\/ .ftftXE.CT-iP.RO.fiRAM ,TO, TARE 




















iAQ 




, . , Kf,M0iRV, .SliT.E, ,AD,DR,E,S,S, ,«?Q,Oi ,TMR,U, 1,4,0,00 




















1,1,0 




i > i 'MOi-if>UiERiL 1 APi» i.iiii ii 


















, , 


1,2,0 
























;too 




■ i , !1//iO,*i-,Pi il .«>. ifiiAiRiDi-.PiUiWCH i,,,,i 




















1//i0 




, , , dLMaZ-CT.y ,10, ,1,5, ,T,0,-G,RArtD- TOTAL i , , , 
















1 1 1 




1,S,0 




, , , !i,4<o5-c,T,j, i, .iiS ,t,o,-(C,ham-,<ime;-, , , 




















%lnO 




, , , !l,V,0,3,- l P,-,C,\/ ,0,M, ,5>TAT,U,S 


l,& AV.EiRF.LO.W , , 














1i7i0 




, , , \lHo 


5,-J»,-,C,9, ,Ort STATUS, 


I.S, ,E,N,D-,o,F,-,P,AG,E' 


. 




1 1 1 1 


























































































I I I I I I I I 1 1 






















1 I 1 


1 1 
















































, 


































, 
















/ 




















,,,,,, 






I I I I 















Figure 53. Sample cobol Program, Part 1 of 8 
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program SAM pL£ . pp ORL eM -iHOl r , .ftP,r>L 


SYSTEM ^ ifQ± SH 


:et 9 op g 


PROGRAMMER 


DATE 10 


M - S,A,NP,L,&- 2£ 


SERIAL t 
4 6 7 


A 'B 

8 ,12 16 20 24 28 32 36 40 < 


4 48 52 


36 6 


J 64 68 72 


Q_LQ 


I,MPiL)!T .-iQUiTiPiUTTi iSEiCiTilOiM-i i i .l_l 








I i i i , i 


o?,n 












,,,,,,! 


030 


i i i l&ELECT, ,riA5iTER-iliNPiUiTi-iFiliL,Ei . , , . 








, i i 1 1 1 1 


' 


OtfiC 


, i i Assign to, tare. -Lj, ^ , 










| 


c____2 


, i , !_£_•__,£,__,_.__ iAJOi AiLTiEBNATE, ,AR£,A<, i . 










,111 


">,f,,r> 


, i , !S,£.L,E,GT, MALS,T,E,R- ! QU,TRU,T,- 1 fil,L,& , , i 






1 1 1 1 


i 1 i l , 1 j 


11,1,111,11 1 


07,0 


, i i ASSISiN ,T,A TAP.E 3,j, ,4 i . ■ 






1 1 1 1 




,11 


DiffiT 


, , , IREiSERViC ,N,(1 ,AiL,T,EiftWATE 1AAE1A-1 i i 


I I I 




1 1 1 1 




, 


ftff 


, , , !SE,L,E,fiiT, CiARfi- RE ADCR ■ , i i i ._l__l_j 






1 1 1 1 




1 , , , 


1_0_Q 


, , , !AS£,l,6iNi A^i-^-ify, 2..,', 












1 1 1 1 1 1 1 1 1 1 1 1 


■f.lft 


, , , SiE.LiECiT PRItJTEA 














i 1 1 , 1 


12ifl 


i , , lA.VS, / iAAJ i1Hi0i3-iR«i 















,1,1,11 












^ 






1 1 1 1 1 1 1 1 1 1 1 1 


1iV> 


DatA iDiv>i>siiO^-i ■ > . . 








, i 1 1 1 — 1 




1 1 1 1 , 1 1 I i I I I 


lfAQ 


F.I.LiE! lSECTIiO,!.-, . , , , i 










1,11 




, , , , , 




F,D , MASTER.-, INP,U,T,-,F,I 


LE , 








1 1 1 1 




I I I 1 1 i 1 


______ 

2___2 


, , , !RE,COR-_IM-< MODE 








1 1 1 1 




, , , , | 


i_2_2 


, , i IBLACIt .GaWTAlMS 1,0 RE.CaftDSi , , , 










,1,1 


__&__ 


, , , 1LABF.L, .RECORDS, ,ARf, _3,TANi_ARO < i 










I 1 1 I 1 I I I 1 I 1 1 


____£ 


, , , !ViA.L,UiEi iQFi ,l£>EiMTi»P,/,e,AT,l,0.rJ ,l,_> \MASTi 


Rc±m<L£Z± i 




Ill,,, 


Z££ 


, , , l?£f ,EN,TI XM-CXCIJE, ,.S ,Q3Q , 


J_l 1 


-L--LA 




II 


1 I I 1 1 1 


?,f,fl 


, , , :f,i,le-,s,eri,a,l,-,wumr,e,i_ ,l& ,123.15 , 


1 1 1 1 







?i?iO 


, , , CP_£AXI,0,N-,DAT,E ,I,S 64Q20 


1 1 1 1 1 1 1 1 




,,,11,,,,,,, 


?r\C] 


, , , :REEL-SEqiiEN£E-,MU,MRER AS ,003 




l i l 1 1 1 1 


, , , , , | | 


JMrC 


, , , DATA ,RE,CaRD ,IS, MASTER,-, I, MRUT- .RECORD. 


1 1 1 1 1 1 1 1 


1 1 1 1 1 1 1 1 1 1 1 1 
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PAGE PROGRAM 

I 3L 

_^_r PROGRAMMER 




CQJ3QI— 



=LMQ±^ 



3 0F * 



M 



.1 1 i. j _1.j__j_a_1_j._1_ 1.. 
II 1111 j__j_l_j 1 .1 



il./JPlgir-iR&tliOiRD- 1 ___ j j j_j_l 
________________jB__CiTi__iMi Jjfe lALlAL' 

i___i_CiTil__R__i ________ jA____l___ij_j__i_j i.jj..... 1.1 .1 1 , 1 

i-T-i 1 1F1 -L iD-3i * 1 1 1 1 1 1 1 1 1 1 1 ______ ___.___. j _j a_ j j 1 _j j._i_ 1 1 _j__i_j_j 

Q,__, ,F, I CLP- a A P.I.CTUWE, ,/,S Xfi5>. ,___._, 



iQ 3 i 1 F 1I i E iti.a-3_C_-._-i- 



-_Ja5 iXd'fli- 



_l__—_-.J L_ 



lL£J__0_3&_iQN£ LjR_i_GT_UfiE ,.LS JL9i9A/ii__?i*. ,a 
, 1 1QW1 .F.I.E.LPad-TiWQ , iRliCTiliftE, J__5_________i_fc____?____i 

_y_i__i-i_jJBJjCiT_lAj_lEi i>iS_jA_61l&>jj .1 1 j j..___i..i..i..i j 1 j.i 
FiliE.ik iQSi 1 .fil-CTi- i iRE. .I.S. XC.lQ)-i 1 . _______.-1_____.___1_.__ 1 j_i_j_ 

F. t . E . U .Di fc . 1 fr r CJJAREi ■ ija-ALaAjMllLT. .. j-j-j. j__ j-j_i_ i.j _i j 



iFiI_EiL_D,7i 1 ,P,I,C,TiL _R,Ei ,l& ,91,9, 



_j_a___i_ _________ 



J.E. 1 l,S, d, TiH RU, _l,57,j _ 37iT T .HR U, &5a 
,gg, iTV.PiEig ,VA,U) ,E l,S 35,31 iT.MR.U, ,7,.^),. ± ., .. J _ 1 __ L _ L _j_ 

j?,__, ,rryp£3. valuf, is, ,7,5,1 ,rt/Ru, ,<?,<?,<?,» ^a 

Fl.E,t.,D,R ACC UR& _S ,T/,MF_S 



,0.3 F. I lEit sO - .^--x-i p ! I CTUREi .jIA-A -l? . ... ___. j j l_j . l j__j.. , .j_ L 

•iliEila__>-i8iB 1 iP I.e. T LIRE ,I,S i^itil Q) j» __.__. .11 1 _ j a 1 ______ 

■iliEil-iDi- ifliC*i 1 1 1 1 1 1 1 1 1 1 1 1 1 .1 1..1 ______________ 1 1 1.1. 

Q_, ,K l,E,L_fl8C-_OME, , P.l .CT.UftE, ,IA ,9,9, ■, ,,,.,, 



iLift &C- . TiK/fl 1 ifiL&TUfiE, ■ I A saa^^ 

h-MARK &IZ,E ,I ,S, ,1. _j_ L _ L .a 



-j 1 1 1 1 1 1 1 ________ 



J_ I I _L I I 



-1_1_1_1_1_1_LJ_ 



I I I I I I 



_______..._____. 

I I 1 I I 



1_1 



111 111 

.1. ______ 1 _____ 

_—___—__ l.-J_ 
1 ill 1_____ 

J J____l_ J_J_ 



1 I 



_______ 



_L I _!_____ 1__ 
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program 3/IMPLE PtfOBLBtf -1441 C060L 


system ^ ; 


SHEET ^ OF ^ 


PROGRAMMER 


DATE 


,0ENT - W4f/it£-y 


SERIAL ! 
4 6 ' 


j A >B 

t 8 |I2 16 20 24 28 32 36 40 44 48 52 56 60 64 68 72 


5&- 


, i jtAs,TiGr l -,au l T l At4r l -w t L£; , , , , . . , 


i 1 I l 1 . , l i 






O,20 




, IfiZtCfi&o,/ /kf<s, wc&ex i/iS", ,/,,,, . i i i i i i i . 




I I I 1 1 I 1 1 . 




OtfO 




. 'Jf,/.C,CM £0MTAlMS> ./.«■ .ife^tfi^^J-, ,,,,,,,,,,,, 


l 1 . 1 l 1 l 1 1 


I 1 1 1 1 I 1 , I 




otffi 




, V-^^e/., &GG0&AS, At& {STAWflRfr , i 


II. I 






o,s,c 


. 


, \?AlMG ,** J4, ,/,J, .•^M^T^-./T/iZ^' 


l , i , l 1 , 1 , 






O*>0 


, . 


, tf&T&MT/ fiM-<eyC,L& ,/,«, ,0,9,0, , , 








P7fi 


, , 


, to/fr,^ ttcfltj, ,/,s, i **A i Ti5&-wrpprr#Gfit>*A'x . 








ate 


o,f, 


, tirf-f^&ft-jMrPMn-AiEicptfiiit ,,,,,,,, 








Opfi 


. , 


, !i?,/, z,£ ,/J, ,/,7iZ ,^ MHte/tGHEXls i , . . 




ii 




iao 


fi£L 


, \CAfi,0\ ~\K\t:\Q\l>\G\% , i i , i i i i i i i 








t\f/> 




, x ££ t Cfi&O t i JUC, /HoAE< ,/,!, ,/ . . i . 








1^0 




, !z.,4tf,/r*, X&CP&PS* AZe> a/VfTTEO, 








1AQ 




, !/W,7rf, tttec/fAa ,f,s, ,M£M-/t4*frtr,/3- l r,c;c l o l « l &- 








f t 4 t o 


OiLl. 


, ^fe)-,/^/f 1 r,r,f 1 « l -,^£,c,o/e,/),. , ,,,,,,, 








f&O 


. , 


, \42 t ,cAl,f,-J,0, , Affij-MK* ,/J, ACf,aJ,- 


, , l . I l , l 1 


,i,ill_,,, 




fto 




, \qz, ,dai.,f>f>->zs, ,ff/,c,7ra^e ,/,s, >*hf>ffr) 








tJtO 












Wf 




, ! , , A51 Aac^e -,3,0, />,/&reitiE JSx XfoJ 


, i i l , i 1 l l 


I 1 I , ,. , , I 




1&0 






, l , l , l , 1 l 


I i i , i , 1 i 1 




ifto 




,!,,,., .04 AoAAfr-AS, i AtCiTMtog ,/,5. ,5^9,1/59,., 


, 1 1 1 1 , i l i 






lOxO 




,!,,,,, ,0,4, A0^,3A,~,4JL t , -A/iCTM&G i/.5i ,?y.6J.lf3*i 








ZIP 




, !ft2, tfiJ-AA-Slx Jt/,GtftfJB£: 74", AfJSJ,., , , , T, , , , 


i I i 1 






IW 




, .0,2 ,^>A,5r,-A,7, ,fl/xxr,a4# ,/J. ,x,f,tx^i,., ,.,,,,,, 


I i i 1 i , , 1 1 






?<3\0 


i i 


, IftL ,^Z,6^-,7,7, ,ff/ATMte ,/,S, ,9,(,r,)M99,' 


i l , l 1 i 1, 1 1 






Z4P 


i j 


, !<?,2, l C0t-,7,f,-,ZO, xPj&TxUKfc ,/3, ,9,9,^., 


1 1 i—UI III! 


1 I 1 11 1- -I— l .1 . 
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■SAMPLE. PROBLEM -H.Q1 GnRrtL 



_JL_____L 



T btW " SAMPLE.! 



QIC 



F,D , PRINTER 



om 



a&c 



one 



0,1 , lIUVQI CE-LlME, , PICTURE ,!,& 5 



I JL.L-. 



LABEL .BEiGQRDfi ARE, QMIiTTiEiD ■ ■ > . ■ __.__ , _ . ., _ 
ICHAT A RECORD IS INVQIiCE-LI NE» 



' i 



_____________ 

___L.___i_l__L_L_ 



I _1_ J J I 



Q&C 



\AAaR»4iM&-.STnRA6E SECTION). 



ate 



frl , lK_\/,Ql £E- .HEADER- LlNE- 



i i i i i i i i i 



25.fi 



Q&Q 



aM 



1QC 



LLC 



!__£> 






L2C 



b,2, FILLER SIZE I A ,2Q. 



QfL H£f\{£R-LABLL _, PICTURE 







fog, FILLER, SIZE, ,IA ,MQ 



fag, .DATE-L INE . P,_CT,U,gE .|£ 



.i.iii i i i 



AdlfeJi' 



I I J L_L 



...1..L. L_l_ 
_J__L.J. L. 



:o a _ F j .u_.--iB & i , ze .i» s a fa-, _____ 



IliN VQ ICErDETAIL. L INE- 



-I I I I I L_L_ 



IQ£ FILLER SIZE .Ifi ,7/3., , , 



I I I I I I I I I 



14G 



ISA 



Dg QUAMTI.TV , P/flTUBE ,!■& flflfl. 



PR F iliLkfR . S IZE J & Z' 



1^2 



l_Zfl 



iQg, , ITEM-NUMBER, , P.IATtiEE 



JQg^aFAJXLR^SLZE-iLa^fi^ 



L__l_____G£Ql 



i i , 




IS „Xf_gQ.,', , , 

______ 

Si _r\-V_____L_L____l-_L_L 



I I I I I I I I I I I I 1 I I I I I I I I 



_1_J_L_1_.JL-L__.-L. 



'I 



I I I I I I 



III I i i I I I 



I I I I ■ i I i 



i ' I I I I i I ' I I I ' ' i ' I I i I ' I I I I 



I l l ■ i i i 



' I i ' I ' ' ' ' ' ' 
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r_o__ 


"""'"sample pr_rlem-±.oi P_o_y_L 


SYSTEM ±4fQ± 


SHEET . or & 


PROGRAMMER 


DATE 


iDENr KAM.L.fi.-aE 


SERlAL 

i 
4 6 


_ 1 

. A ! B 

r 8 ji. 


,6 
________ 


20 24 28 32 36 40 44 48 52 


96 60 64 68 72 


QIC 


, , , b__ p 


(aEr-AND-iSl ZiE-i ,1 i i i , i i i i i i 






I I I I I I 


r.iJ.,0 


, , , , , iCX., PACKAGE , PilifiTURE ,!.£_ Af,_),.i , 








ftiSiC 












D,*.,. 


,,,!,, ,03, ITEM-SUE , PICTURE IS, flfl.),. 










r.,50 












QlmC 


, , , 'Oft WH5E. LOCATION , PICTURE, IS, _C_.l_),. , , , , 


















QUO 


, , , !02 WEIGHT, , PICTURE IS ,yrs),. 










OTiC 




















J_1_J_ J. i L 




11 ,0 


,.,:,, ,0.55, £,HELF,-,/.R/,CE , P,I,CT,URE ,t_5, ,.,.,.,.,,?,-, , , 






1 ._?,,. 


,,,,',, 03, iFiliLLER ,S,/,ZE, ,/S, ,2., , , 








. 


1,3,0 


...I.. OS. _2ETAI,L-,P,I-I,C,E , ,P,I,C,T,URET ,I,S ,<W, 9 ., 9,9, . 


1 1_J_L_ 






















1.«.,0 


,,,:,, 0_S ,UN|,T-,C,0ST, , ,RI,C,T,URE, IS flfl.-flW,-, , , , 










1,-»0 














,,,!,, as, fVTENt-En-AMnUNT: , Pi.ctijbe is ,<_<_<_<_, 


■,9,9 •, 








l»f 


, , , '_),£ ,F 


II L£ 


_____SLZ 


E. il>S 35*i 










1,1,1, 

















































. 


,1,1,11 

















































. 



















































1 1 


, , ' ' 111 


, , , 


i i i i 


l 1 , 


i I i i I 


1 1 1 1 


1 i 1 i t t I I 1 i I I 




i ' I , ., 




..--J l_l 1 1 1 , . 
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program SAMpLE . PRORLEM _izy l COBOL 


9 : 9 ." h .j14^l_...._j 


SHEET #/ y OF jy 


PROGRAMMER 


DATE 


ident ' aAMRLE-a 


SERIAL l 
; 
4 6 

Q1.Q. 


i A |B 

r 8 ,12 16 20 24 28 32 36 40 44 4B 32 36 60 64 68 72 










Q&Q 










03D 


. . . b& ,T,OT,AL-,QUAMTI,Ty, , .RICTURE ,I,S ,<?,(,£),• 








OHO 










Q&C. 


. . , IQ2. ,T,0,T,AL-,UEl,aHT, , ,Pl,C,T,UP,E, ,IS, ,X,C,7,),- 








ShQ. 










GJZfl 










080 


,,,:,, ,03 ,RET,A.,L,-,TQT,AL , ,P,I,C,T,URET IS AMtt.14- ,<?,<?,•, ,,,',, 








QAfl. 










1GQ- 


,,,!,, OS, ,IJaVQlC,E;-T,0,T,AL , ,Rl,CT,URE A&, ,*,W,*,9,',9,9,- 








He 










120.. 


CftKlSTAKJT £.ECT,l,OlJ- , ,,,,,,,,,,,,,,,, 








lAC 


Oi , IBLANK-fcECORD < PICTURE ,I>S XCiafc), , MAU1E ,l,& ,SPAC,&S-, , , 






14fl 


, , , \m, .CONSTANT, 7,81 , .PICTURE IS, ,9,<?,9\m, , VALUE, ,l,& ,7. ,8,1., , , 






i£fl 


, , , !7,7, C,QMS,TAMrl2a , ,P,I,C,T,URE ,IA ,9,9,1 , VALUE!, ,l& rkl,23,., , 








1.&0 


,', , 17,7, CaUriT.ER . .PICTURE ,16, ,9,C£), , VAL4J.E AS, ZERO-, 








17,0 


01 , ALP.HARET-XARLE , PICTURE ,IS XCiO^,), 








l&Q 


. , , VALUE ,IS >Ar 1 QlB=,QSCr 1 Q3D=,OlE=D5,F,=nfafi-a7,H^8I,^09J, 


'■Yifltf- 


-,tilL 


--12M--.1 


19,C- 


■ , , , !V^Ki«l'/,d=d J 5,P,=J,^-i,7,R-i,gS.-i,9 1 T.-,f,QU--,2 1 iV J .,22W.-,^X^-,^V,V, 


"rffiWr 


.*.</ 




end 


(Vf, , ALP,HA,~SUfi- FIELDS ,R,E&EF,/ M.E.S ALPHABET, -,T,ARL,£» 








OS 


, , . \QSL ,A-,I/n1DEX, , P,l,ATU«£, ,IS, ,y,f,</>, , OCCURS, ££ ,Tl,MES., , , 
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Programming Considerations 



Notes 



Addition Notes 



When using the add verb (or when using a compute 
statement involving an add operation), the data- 
names being summed must be placed in order of as- 
cending decimal size in the statement. The smallest 
decimal field must be first followed by an equal or 
larger decimal field. 

Division Notes 

In order to ensure correct decimal alignment when 
using the divide verb with the giving option ( or when 
using a compute statement involving a divide opera- 
tion ) , the programmer must declare a result field, the 
decimal portion of which is no more than one position 
greater than the decimal portion of the dividend. Also, 
the rounded option will have no effect unless this rule 
is followed. 



Techniques 

cobol provides a convenient method of writing busi- 
ness-oriented programs. However, certain techniques 
can be used to produce more efficient machine lan- 
guage coding and increased compiling speed. 

The following considerations and suggestions are 
included to aid the programmer in obtaining a better 
1401 COBOL-generated program. Following the sug- 
gestions are two programs. The original program 
(Figure 54) requires approximately 2,800 positions of 
core storage. By applying a few of the suggestions to 
the second program (Figure 55) the core storage re- 
quirement is reduced to approximately 1,900 positions 
of core storage, representing a saving of 33 percent. 

The changed statements utilize redefinition, equal 
decimal alignment, alphabetic compare, and the dele- 
tion of a subroutine caused by the statement write 
salary-record from salaries ( Figure 54, part 4 of 4, 
line 100). It is recommended that the programmer 
become familiar with these suggestions and apply 
them in the writing of 1401 cobol programs. 

Area Allocation in the Data Division 

The following rules govern when 1401 cobol sets 
word marks with data areas: 



1. Record areas (01 entries) always have a group 
mark with a word mark in the following position, 
and have a word mark in the high order position. 

2. Word marks will be set in the high order positions 
at the next level from the 01 entry. This will be 
02, or the next lower level if no 02 is present, unless 
occurs or redefinition is present. 

3. Subfields have word marks set only when their 
high order positions coincide with word marks set 
as in preceding item 2. 

4. A word mark is always set in the high order posi- 
tion at the 77 levels, but there is no group mark 
with a word mark set. 

5. No word marks are set for data fields within a 01 
entry which contains a redefines or an occurs, 
either at the 01 entry (implicit redefinition is 
allowable) or at any sublevel. 

If word marks are required but not present, they 
will be set continually and cleared for access to the 
field; this requires time and core. If word marks are 
present, they will be regenerated if removed. For ex- 
ample, if editing into a 02 area, a word mark will be 
reset each time. 



Tables 

Many programs require tables. Following are several 
considerations about table building and searching 
with 1401 cobol. 

1. Unless it is certain that a table will never change, 
the initial values in the table should not be estab- 
lished with the value clause. A better approach is 
to set up a card deck or tape file with one table 
entry and a sequence number on each record. 
Using the read verb, build up the table data dur- 
ing program initialization. This approach elimi- 
nates the need for recompilation or object-program 
patching in the event that the table changes in 
value or size. 

2. Before using the occurs clause and one or more 
levels of subscripting, weigh the alternate storage 
cost of naming each table entry and writing (for 
example ) : 

if arg = tab-1 move ent-1 to work and go to 

FOUND. 

IF ARG = TAB-2 MOVE ENT-2 TO WORK AND GO TO 

FOUND. 

etc. 
The additional coding effort is offset by dividends 
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in execution speed for tables with as many as 30 or 
more entries. 

3. Define long tables as a set of shorter tables. A few 
if statements are enough to isolate the relevant 
position, which can then be moved to a work area 
where the final pinpointing of the correct entry 
can be done. The move should be between 01 level 
records. 

4. If the work area mentioned in the preceding item 
3 is n entries long where n is a power of 2 (such 
as 8 or 16), the if statements which are used can 
be written in such a way as to effect a binary 
search. In the case of a 16-entry work area, this 
technique can yield an answer after only four if 
statements. 

5. Sequential table searches require little program- 
ming effort and are efficient if the table can be 
arranged so that the most active items are at the 
beginning of the table. 

Move Verb 

1. move a to b, where A and B are equal length 
alphanumeric elementary items defined at either 
the 01 or 02 levels, gives the best possible coding. 
All items with subfields are treated as alpha- 
numeric by cobol, even if some or all subfields 
are defined as numeric. Only one 7 character in- 
struction is generated as long as A and B are not 
redefined or subscripted. 

2. If both A and B are redefined items or items de- 
fined at 03 levels and up, eight additional charac- 
ters of instructions are generated (i.e. set word 

MARK and CLEAR WORD MARK ) . 

3. Elementary items are treated as above unless they 
have an unequal number of decimal places. In 
that case, a total of 28 characters of instructions 
is generated. 

4. Unequal length elementary alphanumeric items 
are moved the same as equal length items when 
A is longer than B. However when B is longer, 11 
additional instruction characters are generated 
to blank the receiving field. 

5. When A and B are unequal length numeric items 
with identical scaling (same number of decimal 
places ) , 14 characters of coding are generated. 

6. move a to b causes 1401 cobol to include a spe- 
cial subroutine when A and B are of unequal 
length or one or both contain subfields. The spe- 
cial subroutine is used because the mlc and mcm 
instructions cannot conveniently handle this com- 
plex situation. Even when A and B are the same 
length, the subroutine is still used if A is a 01 
item and B is a 77 item or vice versa. The sub- 
routine may be avoided by writing a set of indi- 



vidual moves, redefining both A and B, or by 
making them the same length. 

7. move spaces to a and move zeros to a each 
generate 11 characters of object code unless A is 
a 01 level item with subfields. In that case, A can 
be redefined at an additional cost of eight charac- 
ters of object code. 

8. When editing is involved in move a to b, the 
same rules about scaling, redefinition, and size 
apply. For example, when the A field has fewer 
decimal places than the editing picture describ- 
ing B, many characters of coding are generated. 
If the scaling is identical for A and B, approxi- 
mately one-third as many instruction characters 
are generated, plus the 1401 edit word. 

9. Avoid editing functions which cannot be handled 
by the 1401 instruction set directly; cobol zeros, 
floating plus or minus, db, and single plus. A spe- 
cial subroutine is called to handle these cases. 

10. move all requires a special subroutine. Use a 
literal or constant of correct length to handle this 
case. 

If Statement 

1. When defining fields that are to be compared, con- 
sider the following: 

a. When at least one of the fields is a 01 item 
with subfields, a special subroutine is required. 

It is better to process such fields by comparing 
each lower-level item individually; or the group 
item can be moved to a hold area of equal size 
(not containing subfields), and then compar- 
ing. 

b. When numeric compares must be used because 
one or both of the fields are signed, attempt to 
arrange the record format so each item has the 
same number of decimal places. The fields do 
not have to be the same total length. 

2. In the statement if a = b, only one of the fields 
(A or B) need be defined as alphanumeric to get 
the more efficient alphanumeric compare instruc- 
tions generated. 

3. if a not greater than b . . . has the same meaning 
as if a less than b or equal to b . . . and the gen- 
erated instructions for the first statement require 
half the number of core positions. 

4. The statement if a is zero . . . generates more 
efficient coding when A is defined as numeric 
rather than alphanumeric. However, an even 
greater improvement can be gained by declaring a 
constant of zeros (named C, for example), and 
writing if a = c . . . which is twice as fast. 

5. Avoid the statements if a alphabetic and if a 
numeric whenever possible because they require 
subroutines in the object program. 
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6. Avoid the use of all, high-values, low-values, 
spaces, and zeros in conditional expressions. They 
can easily be replaced by named constants. 

7. Subscripted names in an if statement will cause 
the compiler to include appropriate subroutines 
which often perform slowly at object time. Fre- 
quently it is better to use several if statements to 
perform a table look-up on a short table rather 
than use subscripting and the perform verb ( or an 
equivalent loop). 

Arithmetic Verbs 

1. Avoid on size error . . . whenever possible. The 
generated coding to perform this test consists of 
up to 30 characters. 

2. rounded usually generates about 21 additional 
characters of object code. 

3. add and subtract statements: 

a. The most efficient object coding is obtained 
for fields which have equal scaling. When two 
fields (A and B) have equal scaling, the state- 
ment add a to b generates 7 characters of ob- 
ject code. 

b. Redefining, or using 03 levels or greater, will 
require 8 additional characters for each field so 
defined. 

c. Multiple operands are as efficient as the equiva- 
lent set of single statements, add a, b to c gen- 
erates 14 characters (assuming the require- 
ments of 3a are met). 

d. add a to a is an economical way of multiplying 
A by two. Other sequences of add's and sub- 
tract's, sometimes with redefine's to achieve 
a shift, can be devised to simulate a more com- 
plex multiplication. 

4. multiply and divide statements: 

a. multiply aby b giving c generates 21 characters 

of instructions if A, B, and C have no decimal 
places. When A, B, and C have decimals, and 
the number of decimals in C is not the sum of 
those in A and B, 42 characters of instructions 
are generated. 

b. In the preceding example, rounded generates 
an additional 7 characters. 

c. Less efficient coding is generated for a com- 
pute statement than for the equivalent set add, 
subtract, multiply, and divide statements. 
The reason for this is the need to retain up to 
18-digit precision throughout the execution of a 
compute statement. Because the 18 digits can 
be on either side of the decimal point, and be- 
cause one or two extra digits may be required 
for rounding, 1401 cobol allocates 40 digit ac- 
cumulators for the storage of temporary results. 



For example, compute a rounded — 
(B*C*D-E)/F, with a varying amount 
of decimal places, generates about 160 charac- 
ters of instructions plus 3 X 40 = 120 positions 
of temporary accumulators. For the equivalent 
multiply, subtract, divide sequence a total of 
about 140 positions of storage are used for the 
instructions and fields. 

Work areas are assigned only once per pro- 
gram. Thus the most complex compute state- 
ment determines the number of 40 character 
areas that will be needed for all compute's. 

Perform and Alter Statements 

1. The statement alter label to proceed to next- 
label generates 10 characters of coding. 

2. The statement perform calculation generates 18 
characters of coding at the point in the program 
where the perform occurs. In addition, calcula- 
tion is augmented by 4 positions for each perform 
which references it. 

3. calculation should be positioned in the source 
program at the point where it will be executed 
most frequently simply by falling through from 
the preceeding paragraph. 

4. The option 2 statement, perform calculation 5 
times is efficient. Core requirements are about 45 
positions at the point in the program where the 
perform occurs and 4 positions additional at the 
end of calculation. No additional core or time is 
required when a data-name instead of a literal is 
used to indicate the number of times. 

5. Option 4 of the perform verb is handled best if 
the varying field is defined as alphanumeric and 
each of the fields in the expression has the same 
length. 

Input/Output Verbs 

1. The statements read into and write from each 
cause a move of the entire logical record. In many 
cases the use of these options is unnecessary be- 
cause processing can be done either in an input or 
an output record area as defined by the data rec- 
ords are clause in the fd's. When read into or 
write from must be used, ensure that the implied 
data move involves equal length areas. 

2. When using a card reader, read is faster and gen- 
erally smaller than accept. Similarly, write is 
better than display for printing and punching. 

3. It is not possible within cobol to assign the same 
input/output area to two files. Areas in the work- 
ing-storage section can be (and should be) 
shared, however. 
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4. For card and printer files, input/output areas in 
addition to 001-080, 101-180, and 201-332 are as- 
signed. This is in anticipation of a possible conflict 
with the accept and display verbs, which use 
those areas also. 

5. The write verb for a printer fd does not clear the 
print area. Use move spaces to clear this area. 

6. Form 3 (unblocked, variable length) tape records 
are not permitted within 1401 cobol. If necessary 
the file can be defined as Form 1, and a simple 
Autocoder sequence can be used to set and clear 
the gmwm at the end of the portion of data to be 
written. Form 4 usually offers better tape utiliza- 
tion. 

7. In order to change the date specified for an input 
file for label checking purposes, enter autocoder 
and issue a rdlin iaxx macro. If the file is the nth 
fd in the program, then xx = n+9+m where 
m is the number of Autocoder names in the 
special-names section. 

8. A common error in cobol programming is the 
assumption that a different area in working- 
storage must be defined for each record type in a 
given file. This may be avoided by ( 1 ) defining all 
possible data records directly under the fd with 
one 01 entry group per record type, or ( 2 ) defining 
the most common record type under the fd and all 
the others in a single area in working-storage 
which is redefined once for each record type. 



Object Time Subroutines 

There are several cobol object time subroutines that 
may be generated. These routines are described in a 
separate bulletin which may be obtained with the pro- 
gram. Normally, the programmer should avoid cobol 
statements which cause these subroutines to be used. 
For the most part their inclusion is caused by either 
unusual language features or by complex data formats. 
Following is a list of these subroutines and the reason 
why they are called and/or how they may be avoided. 

1. The Examine subroutine is included whenever 
the examine verb is used. It may be avoided as 
follows: 

a. For short fields, give each position a name by 
defining an appropriate number of subfields 
and using a set of if statements. 

b. For long fields, define a work area with one- 
character subfields and process portions of the 
long field there. 

2. Single, double, and triple subscript subroutines 
are included whenever a field is singly, doubly, 
or three-level subscripted. 



3. The Alpha Compare subroutine is included when 
a group item with subfields is compared to any 
data item. The subroutine may be avoided by 
redefining the field which contains subfields. 

4. The Figcon Compare subroutine is included 
whenever a record with subfields is compared to 
a figurative constant (high-value, low-value, 
quote, and all alpha-literal). This subroutine 
may be avoided by redefining the field with sub- 
fields and using a literal or constant ( Figure 54 ) . 

5. The If Numeric subroutine is included whenever 
an alphanumeric field whose size is greater than 1 
is tested for a numeric value. 

6. The If Alphabetic subroutine is included when- 
ever an alphanumeric field whose size is greater 
than 1 is tested for an alphabetic value. 

7. The Accept subroutine is included whenever the 
accept verb is used. To avoid this subroutine, 
define a file and use the read verb. 

8. The Display subroutine is included whenever the 
display verb is used. To avoid this subroutine, 
define a file and use the write verb. 

9. The Editing subroutine is included when editing 
requirements include coboL zero, floating -f- and 
— sign, single plus, and DB. It produces highly 
specialized editing features. If possible, use only 
the standard editing features of the 1401. 

10. The Exponentiation- 1 subroutine is included 
whenever an integer exponent is used (compute 
a = b**5). It may be avoided by writing succes- 
sive multiply's. 

11. The Go To Depending subroutine is included 
whenever go to depending is used. This sub- 
routine may be avoided by a set of if statements. 

12. The Move All subroutine is included when the 
all option of the move verb is used, a move 
statement or a set of move statements is prefer- 
able. 

13. The Move Record subroutine is included when- 
ever a record with subfields is used in a move 
statement, except when the other field is a record 
(01 level) of equal length. This subroutine may 
be avoided by: 

a. Using a set of elementary move's. 

b. Redefining both fields to eliminate word 
marks. 

14. The Exponentiation-2 subroutine is included 
when raising an expression by a non-integral ex- 
ponent (compute a = b**2.5). It is impossible 
to perform all the functions of this subroutine 
with other cobol statements unless the exponent 
is defined as an integer. For special purposes an 
Autocoder subroutine may be a more practical 
solution. 
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1 1 1 1 1 1 1 1 






t\'\0 




, , , \o,2, ,F7,L,L,£,a, I,,,, J>7 ,c,T, </,&,£; /l,AA v,A,L,U,£, ,s,P,A,C,e,. 




1 1 1 1 1 1 1 1 






/,2,0 




i i i ,0,2, sf,o,A/,Ty,.L,y, i i i i \P\' ' , c 7y,^£, ,z,AZ,z,. ,9,9, . , i 1, 




1 1 1 1 1 1 1 1 






/$,0 




_i_i jJfi2i .jA/iZiZ.^« .. , , , iA/yCTU/A* /IJtA i i i i i VALj/A SMC£„ 










/^o 


II \0,%, /l\Af\W\(/^\d-\ 1 1 1 I i \P\S £ s^fAx^ i^l^^^Z, . |7|T|. i i I I 1 




1 1 1 1 1 1 1 1 






/^o 




, , , !_.,_, ^,/,L x L,e& P,/ ,C,T,V/?,£-, ,A,(,2,7,), , , , ,V,A,L,V,£, ,S,PAC,£-,. 




1 1 1 1 1 1 1 1 






SAO 




CO,A/,S,/,A,A/,T, $,E[C(r,/ ,0,Af, , i i , i i i i i , i i i i i i 




1 1 1 1 1 1 1 1 






/{7,0 




7,7, , '60A4-A i ,P,/ ,C,T,t/,Z,£, ,9,(,6^,V,9,9 V^,l,U,/F, /,*, ,0,0,8,8,2,6,., 6,9 










/,8,0 




7,7, , ^,*vK-,-S, , A'fifM*A ,9,C,6,)y,9,9 VA,L,U,£, ,/,S, ,0?,8,2,S,0,.p,0 


•1*1 


1 1 1 1 1 1 1 1 


L_J 1 i -L__ 


/fro 




7,7, , \c,o,y,-,c, , j»,/<c,r,(/4& ,9,C,6,)y,9,9 v,a,i,u,£, ,/,s, ,4,5,9,0,0, o,.,o,o 


•J_ J ..J 


1 L.X. J_L._L.i_-l. .. 


L .1 JL 1 - L . 


z&o 






1 J. .1-1. 1. J . 1 1 1 1 


/|S", 




2,/p 




,2, , \F7,L,L,£,A, &,/,Z,£, ,f,0, ,/J,/L,P,//,/l,4l£,T,/,C, ,C,P,A#,A,C,T,< 


^i_^_?i<ri_5:-_____j x .. u a j.._ 


2,2,0 




,2, , '£//,0,M , , ,*,/,*£; ,2,6, Al,PJS,4,£,£,T x / ,C, ,_ //,/>,#, /., <?, T,*,«,S„ , , 


1 1 


. 1. XI J L i -i—J 1 


1 1 1 1 


2\3\0 




i/i 1 p,S,P,r, . 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


JJ 11 1 L 111 L 




1 1 1 1 1 1 1 1 


1 1 1 1 


2&0 




,2, , ',£,/, /.,/,£/> ,S,/Z,£, ,4,0, A,Lp//,/10,£,T,/,C, ,Cf/,/><e,/),C,7-&A2,S, , ,v,A,/.y£~, ,/,S, 


1 1 1 1 1 1 1 1 


1 1 1 1 


2S-.Q 




,2, , \PA5,A/,r, , f,/,z,£, &?, />,£., P/*,A,&,£,r,/,c, cwMPtt*?^ . . . 


1 1 


1 



Figure 54. COBOL Sample, Part 2 of 4 



41 



IBM 



COBOL PROGRAM SHEET 



PAGE 
l 3 

0A3 


program s****/es - /3M- MO/ J**r/v.£r 


SYSTEM y ^ 0/ 


SHEET 03 0F *■ 


PROGRAMMER J <y OA/ ^ 


DATE 


I0ENT. 7 3 , .-.„*$ 


SERIAL 
4 6 


H' 

Z 

o 
o 

7 


1 
A IB 

8 ,12 16 20 24 28 32 36 40 44 48 52 56 60 64 68 72 


0/sO 




i /, i J/\/F\A\l>\ / fi/\G, . i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i 


o&c 




,2, , \f x / x /L x l. x £J2 x , ,5,/,*^ .*« A^sPAA£A77£ x CM4yfi\4xCxT\£-&Sx . i YAAi/As ,/,5, &&*£&&. \ , , 




0*3,0 




Z, , WfAXAK , $,/,!,£, , ,6, 4,£J>J/,/} x S&r/C, WA^A ,/fi, ///AAi^tf' , i 




0^0 




Z x , A/A*AA , ,5,/^ , ,j, s aapaaaA7'7 ^ , , VAxi&A ,/i5, & x pap x £ x s x . x . . 




o x s x o 




,2, , W^stWAX ,5-,/iZ,^ , ,7 AAPAAA&r x ; x c x \/AAi/& ,/,5, ,' Mo^r^iX^., ,,,,,, 




0]6,0 




,2, , fr/,*,/.,^* , ,5,/,^ , ,5, a^AAAAA x t x / x c x , , VAL,Ufr ,/,5, ,5,/V^iC^"^., , , 




X 7 X 




,2, , At/MfAtx , iS",/,*,^ , ,6, AAA^A^^r:/^ \SAAf& t '& 'AWAA J >. t ■ 




O x 8 x O 




,2, , \F X / x L x L x E x ff x , l 5,/ l 2' l ^ ,2,?i A^AAAAF7"7 X C X , MAIM*; i/i*. f^AfiAS,., , , 








i 
i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i 




O x 9 x O 




PA\&'fiAAp'AA\ A\^ Y\^A7 P\M '\ 1 1 I I 1 i 1 I 1 1 1 1 i 1 i i 1 1 1 i i | 1 1 1 I 1 1 




/ x O x d 




STtfJJTx.x x&P&M x O x i/ x T x P4/ x r x tSAXAAX-T^/^A., ,,,,,, i , , i , , i i 




'7\0 




, , , l^e,/,/?^- ijr^z^^K-^zrco^/?, ,/tftfi*rf #A~AA7^A <#/rAaAA AA^Arf<=//><^ ft ,A/S<£?i.i 




/&0 




i i i AAAA\OA\M x CA\£\C\ t /AA7\fP/*'P\ i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i 




/f x o 




I I I VAA\r7A\G\ I /"PA/7'AA'\~ i^4|*i 1 1 i I i i I I I 1 I 1 i i i I I 1 I I 1 1 1 I I I 1 1 I i I I i 




A*P 




i i i AAP/% \5\0\0\ i i i i i ! i i i i i i i i i i i i i i i i i i i i i i i i i i i 




/ x s x o 




i i i i^Vi i i i i' i^i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i 




/\*p 




, , , ^Vtf77/,Z, StOMTMLtf-^rx i/i5, &&£WJ\GA L 7M4M 7PP x O,. 




'7P 




, , , !/,>*; t rA7,Ai-A i=i CiOM-iAx AAA ,t x o x t x a x l-Ax Fi ,c x o x M'A AAA, 7P x t x a 


1 1 1 1 I 1 1 1 1 1 1 


L_l_ 


/ x 8 x O 




, , , y^,^ < x taaa£; y^Ai/fA aaa ^pasa^^ x t x o x ^apm 


/9 x O 




, , , ^ x / x r x £ x JA^AAtf-AAlcpAA AAoM A&S& A AT* 


1 1 1 1..]. ILL 1 .1. l.-J. 1 -1 


iZl/ X^^l .. . L 1-. _L.. J_ _L_I 




ZAO 




i i i AA\$A\ i i i i i i i i i i i i i i i i i i i i i i i i i i i i i 


1 1 1 1 1 1 1 1 1 1 1 1 I 


Z/p 




, , , WffiAAl STAA4A; YAJ-Attx AAA X<?,77 X CPAAAP;> 


. 1 ..L_i_J L„ l._l_l_i_.J__l_X_L 


Z x Z x O 




, , , ^A/7£; SAAAAYrAAAPAA AAPM AAAT X AA7AA AWAAf/AAx A A7AA S ,^ , , , , ■ 


2,3,0 




i i i \C x L x O x S x £ x AAAAA x y x -A7\^\A'\ i i i i i i i i i i i i i i i 


J.. U1J _l__l_i_J 1. .J .. J .. 1...1 J. 1 1 L .1. J 1 J 1 1 1 1 L 


ZA.O 




i i i \S7AA APA\-\ i i i i i i i i i i i i i i i i i 


1 1 1 1 1 | I 1 i 1 I i I 


1 1 1 1 1 1 1 1 1 1 1 


1 _ 
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PROGRAM S*JLA*/£& -/&M-/40/ ^S^^^JLJS- 


SYSTEM y^Q/ 


SHEET ^ OF ^ 


PROGRAMMER J ^^^ 


DATE 


IDENT. 73 , . - , ,,80 


SERIAL 
4 6 


P 1 
z 



7 


A 'B 

8 |I2 16 20 24 28 32 36 40 44 48 52 56 60 64 68 72 


o/a 




^AAAA\^A\ 7 '\ / 'A\ / ^^\'\ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 




0£\O 




, , , \CsOA!Aor& tfp&KiYrMX ,=, ,5, ,*, MoMTA£y->> 


°A^AJ?i , 

- fi/tV 

V f \' 1 1 1 1 1 1 


1 1 1.1- 1 
1 1 1 1 1 


1 1 1 1 1 1 1 1 1 1 1 1 1 


o& x o 






, , 'cOM/>4/f& AJ^/yA^rAAK ,=, ,/,*■ ,*, Mo^y/^AK 




OftO 






, , Wfiy& MttKiyrAA/. XA m^AM JM JAAAA'tt 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


O&Q 






, , froyA //^MT/ZAX'^AK rA MOtfJ^LX JM fAAAA'tt , , . 




OAO 






, , l Moy^ MMfM-JWy, Ta AtfMALx AM SA/AS 


*i'Ai S , 1-X-, 11 


J 1 . 1 1 J 1 1 1 1 1 1 1 1 1 1 1 1 1. .._ 


oyp 






, , <<4A4 WttAt-y-sPAK ,774 yoy/JX-A 


o s tp 






, , AAA MOfi/y//^-A/iy iTA yATALrsBs ,,,,,, 


.L_]_ L.X.J 




0,9,0 






, , Aj>A AMvMAtrxPAK TA jwaju-& , , ,,,,,,,,, 




/PA 






, , x tV&/y£[ ^ALA^yrjr&CtO&A >F&OM ,SAIA&/ &S, 


•1.1 1 U.JJ 1 1. 


1 1 1 1 1 1 1 1 1 1 1 1 . 1 J 1 1__1_ J 

1... L. L-X_l L .1 ...1 . I .1 -1...L. 1 1 1 1_L. L.._ 


1 1 
















1 1 






1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


111 11 

1.1 1 . 1. 1 
1-1...1 1.1 

x_x..i.._x.i 

1 X. X.J I 

1 1.1 .1. 1 




1 1 






1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


X 1 111. 11 11 
J_. 1.1J JL_JL_J..X X 

_L.. J__l 1_L_ J 1 .X_X 

J l.._J _J__1_. 1_J 1 .1 
1 1 .1.1 1.1 111 
1 1 1 1 1 1 1 1 1 










1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 LI 1 XI XXXX-LL 








1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 




1 1 






1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 




-J 1 






1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 1 1 1 1 1 .1. 1 1X1 - 


1 1 






1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 i 1 1 1 1 1 1 1 1 1 1 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 






1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


.1 1 1 1 1 1 1 1 1 
J.- l_L-I_L_.l_l...l. 1 
X 1 .1 . 1 _1 .1111 
1 1 1 1 1 1 1 1 1 


1 1 1 1 1 1 1 1 1 1 1 


1 1 








1 1 1 1 1 
1 1. 1 1 1 


1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 










1 1 






1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 i 1 1 1 1 1 1 1 1 1 


.I....J...L...1. t 1 i.l.l 1 1 1 l..-l._l_i_J L_ 

1 -.1-1 1-1 1.1 1 L.l- 1. .1.1. -L.J 1-J... L. 


1 1 






1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1. 1 ..-l.J L...1 11 

1 1 1 1 1 1 1 1 1 


1 1 






1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 1 1 


1 1 1 1 1 1 1 1 1 1 1 1 1 ,. 
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PROGRAM /40/ Co/Tql g-MALE- 


SYSTEM /4 . 0/ 


SHEET , OF * 


PROGRAMMER ^ y/o*?E5 


DATE 


'° ENT - J?A<-A«'^ 


SERIAL 
4 6 

<Vi0 


o 

7, 


i 
A !B 
8 |I2 16 20 24 28 32 36 40 44 48 52 56 60 64 68 72 




fA^r t i l niiCAT i / x o x f\ MiVitfSittOM.i 






OftD 




to^^rAO,, /, /.*«!/, C x O x e x o(- x x Z x A&p<L&\. 






i i 




i 
i i i i i i i i i i i i i i i i i i ii 






O t 3p 




£ x WX x Ortf4Eft x T x x P x / l U,J x S x / x oM' l ■ . 






e&o 




tAtfAlfoMATJ&ti x s,£ x cr x / x oM. x , , , 






opp 




fMteft-iCfiMPMTM,. 






OfOyO 




i i i i Ifi/Hcil \4\0\f\ i i i i i i i i i i i i 






0,7,0 




, i , tafi*a*iPi ,5;/z,^ .*<?,40 Af/AZACTfrtt,., , , , . 






<W 




0\6tf \c x c x T x - x C x Ofll x P x O x T x G x K\' X i i i i i i i i 






opp 




i i i \l \6fli-\tff x O x t x i i i i i i i i i i i i i i i i i i 






IsQxO 




, , , !tKiEMa^y r X SJ X Z X % x AO t O x ^E t S x s x Aqo, x -r x ft x *>M tfOAQ 







UP 




i i i $ x O\- \0 [ u x e x ~i% x L. x /t\P x » i ■ • i i i i i i i 






t\ z x° 




/MPdr X ',o,or l p i o l r x .s.e.e.r/.^W., , , 






/,3,0 




^|/|L|f?)-|C|0,rV|7VP|i9|Z.|» | i i i i i i i i i | i i i i i i i t | | | | | 






/,^o 




, , , !5,f 1 £. 1 e;c l r 1 ,s t n,*-,^,^,~F,i f L,e t , 






/.*? 




i i i A^iStl X &M iT x O x x t tf\O t 3,- x P,- x i i i i i i i i i i 






i i 




1 
1 I 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 Ill 1 1 1 1 






lA<> 




0,AT/l\ t ai x O x i x ^i x QM. x , , , , , 






/.T[C 




n'/-^i iS|^^|7J'i°i'M«i i ■ i ■ ■ t i i ■ ■ i i i i i i 






/,f.<? 




F,Dt . !Vi £ -i'*i*.^~"i'f / /-i^i i i r i i i i i i-i i . 






/flo 




, , . \l x A8s£Zl x itoGCfi&psx AZ& i<a^/,r,77<ETa 






4*P 




. . , ti/iTA ftSAoftas, AZG M^WMS-tfe&o&o^, 


SALA^r 


ZAcp &&, . , x /fte x s x s ,A6£x -i tiGa o x * 


V.° 


- 


i i i i**!' i i i i i i i i i i i i i i i i i i i i i i i i i 






■ i 




i 
■ i i i i i i i i i i i i i i i i i i i * i i i i 






_1_L 




i 
i_i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i j 
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0,0,2 


PR0GRAM /^?/ <20fc£ SAMfit-B 


SYSTEM /4-OI 


SHEET ^ OF ^ 


PROGRAMMER ^ ^/QfyJ^S 


DATE 


IDENT - ft**A*.td!S 


SERIAL 
4 6 


I-' 

§ 
o 

7 


A 
8 


B 
12 16 20 24 28 32 36 40 44 48 52 56 60 64 68 72 


°A0 




<V. i 


H,£,r>\0 l /,A^& i - i t^£ i C,O,^O,., , i i i i i i i i i i i i i i i i i i i i i i , , i i i i , i i i i i 








0,-2,0 






0,2i ,T[l ,L\L,E,R, i i i i i i i i i i i i i i i i i i ,P,/ ,C\T\U\&E{ ,X,(\5\Oj ,., i i i i i i i i 








0,3,0 




1 1 1 


0,1, ,m£,E,K,LM~tf,E,W,i MGr,Lj M£, P,/,c,TMft& A(,bJ,. ■ ■ 








0,4,0 




1 1 1 


0,1, ,F,/,lyL,e/Z, . xAtxCxTM46t ,X,(,^J,.x . 








o,$-,o 






0,2, ,M0,tJ,Ttf,Ly,~,tf,€/i,0jjJ,6,-JL,fM£, , , , , ,P,t,C,T,0,ft£, ,/i(,7,)i.x ,1.1,1,11 








0,b,0 




1 1 1 


Oxlx ,rj ,L,L,c\K, i i i i i i iii /*,/ ,C,7*\</,#, Z* \K,(,&),; ,,,,,,,,, 








0,70 






0,2, AM4U4Lr-x'& l *0/Ate l ^i/MG , . , , , ,P,/,C,nO&£Z ,*,{,&)<., , , 








0,X,0 




1 1 1 


32| ,F,!,L,L,E&, i i i i i i i i i i iii ,P,/,C,T,0,%.,E, ,X,(,5,2.,J,.\ i ■ i ■ i i i t 








o,%o 




0,1 , , 


Q\ri,£. ,A,K,Y,~ ,R£ ,C,O/Z,0,» , | i i i i i i i i i i i i i i i i i i i i i 1 i i 








1,0,0 




i i i 


o,i, ,f,ijl,l£R , , , , , pjctv&z ,x,(,fxOj„,. , , , 








//P 




i i i 


o,z, ,u)Ge,x,i.,v,-,D,ET,fi,i 4.X-4.J M£ Px/xCTxtJ&e, mz,.^., , 








/,2,0 






0,1, f-,1 J-f-jERx ii i t i i i. i i ,P,f \C,T,U,R.,& xXxfxTxJx'x i i i i i i i i i 








1(3,0 




i i i 


Oxlx ,/Ho,MTtfxLxVx-xO*£xT/l,t,i-,-,L,tM£; J>,t,C, T,0,R,£, ,ZZ.ZZ .iZi2> 








t,4fl 




i i i 


0i2i xFxf xi-4- &Kx 1 i i i i i i i i | i i i i i i i i ,P/ \€ ,T,0,/^£\ Xx(x5~x)x*x i I i i I | I i i 








f$P 




i i i 


0,2, x4xA/A/xC//?xLx-0£xT,/3,/,Lx-x£x/ xAS& ,P,/,CT,U,R^, ^Zzfz?,.,Z,Z. , 








f*>P 






^i2i ,F,f ,L,L,£tf, iiiiiiiiiiiiiii,!! ,P/ \C,T,0&E, £\(,Sx/jJ ,. i i i i i i i i i 








W 




<?,/, , 


/tfx£xS\Zx^'x6^x~xKx^x^xO/Px£>,'' | 1 1 1 1 l 1 1 1 1 1 1 I 1 1 1 1 1 1 1 I 1 I I 1 1 I 1 1 1 1 








lyVO 




i i i 


0,2| ^/tL,/.,^,^, i i i i , i i i i i i i i ,P\/ xC,T,&&G xK,{x^~x^t) i*i ii 








l?\0 






0,2, /J(£^S,S ,*%&,£, i i i i i , P,/ ,C,TxC/^,E, \rf\fx2xfy ,», t ■ ■ ■ i i t t 








2p0 






0,2i xFx/ x£-xi-iExR\ i i i i i i i i i i i ,P,/,C,T,t/,£,£:, ,X\(\f\2i) i»i i i i i i i i i 








VP 




blOM 


/ M&,-,$,7iO,#A&& i3|£iC,T|/|0|A/. i i i i i i i i i i i i i i 








2,2,0 




7,7, , 


tfAStfx-Xo>TJt4.x-~,CxOxUMT££,~MJxEG:Xxt.xVx , , xWxC*T0Me, ,9,/, &y,tf?,9, xVxtfrUxEx ,> 


'\*\ 


MB©.. , 




2,3 p 




717, , 


MGEKCK-xexVxCrxeT, £l£iQ£iFx/M£3, /fxAxS,//r,T,0,T/*C,-,C,OM*J,Ttt,-MJl£;£;*^Vx , 








Up 




iii 


x x x i i i I i , i i i i i i I i i i 1 I I "x/xC,/iP/?\£x xXx(xS\)\»x 1 1 1 1 1 1 1 1 1 








._!.., 1 




i i i 


1 1 1 1 ' 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 L. 1. 1 1 1 I 1 l._l_l_L 
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t OJ 


program /4o/ CoeoL ^rrjPLE- 


SYSTEM /An/ SHEET => OF > 


PROGRAMMER ^ s/otfES 


DATE 1 


0ENT - V/hLM,£& 


SERIAL £ ! 

§ A ! B 

4 6 7 8 |I2 16 20 24 28 32 36 40 44 48 52 56 60 64 68 72 


6,/,0 


7,1 , \tf,ft$,H,-T,oT,m-r,c,oMu,Te,R,-,rno,nT,»,LM , ,p,i,ctp#,e, ,9,fA),t/,9,9, ,V,a,l,iue, ,/,f, ,z,e*,a*, , , 


0AO 


7,7, i X MOMT,tAuV,-xB,U x C,kf,eT, X&a&RlMGiS, &ShSM-,TxO,T/kL,-£,OVMTe\*;rAlOAXr,fhl*U >iii 


03P 


i i i i i i i i i i i i i i i i i i i i \P\t &T\U&\£\ \X\(,?\J\'\ i i i i i i i | i i i i i i i i i i i 


040 


77, , \M,SMs-T,0,T,#i-,-,C,O,i4htr,£:<£r,fW,tiV,fHL, , , ,fl/,C,7Te/&B f*,(,t>,) M9,9, MftLMG ,/,S, Z,«?e.0.«. , i 


0/5-JO 


7,7. , \a,a4M«AC,-,0MC,X,£T, iK&OGFVMe&i ,#fa,H,-7;o,T,»\L-,e,oUMT,£X,-,/},A/A}M'te. , , , , . 


o,b,o 


ii i i i i i i i i i i i i i i i i i i i ,r,/,<Z,r,tt,K,£i ,X,f,P,j,», i i i i i i , i i i i i i , i i i i i 


QTD 


7,7, , tor^tf-ZW, , i , , P,/,c,t,ox,& $93M%9, M/ktMS J&, ,z;^efl»-, , , . 


0,fP 


7,7, , WtMr/A^fr-MIti . . . . . , , . , . , P,l,C,T,OX&, f1,(,#JM,9,% M/H.MG ,/,r, cztto,., , , 


0^0 


7,7, , ^AMMUJKLrAW, , . , , > ,P/,e,r,e/^,^ ,9,(,tyM99, M*klMG ,/S, .2«3era.. , , 


/JDO 


C,OJttS,Ti'9iM7~\ \S,E\C(T\f \0\M* , 111 > itiiiii i*iii ■■■ ■■ •!■■ ■ t t 


1 1 1 1 1 1 1 1 1 1 1 1 1 


UD 


7,7. , \H,*,S,H,-T,CTAM-,oFrMEFKL-Y,~,PA,i>, , , , ,Qr,eT,U,Z,E, X',%), ML,U& ,' 


.4fl*Wte.4.A9'..i , , 


/2£> 


7,7. , \M*lS,ti- l T,O l T t A,L,- l O,F;- l /HC l AJ,T,/fiLy i -,PiShi',. l , ,P,l,CT,tl,X,G X(,%), MM-ME ,' 


,£?J,SU 470,0,0? ,., , , 
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7,7, , \tfAStf, ~,T,C t,*,l, -^K-AAMti^-tPM , , , A/,C,TAtt X/,g), ,\XfiJ-M€, .' 


AS$,Q, 0,0,0,0: ,., , , 


i i 


II 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 , 1 1 1 1 1 1 1 1 1 1 1 


ltf& 


f,K,<9,C(E~0,titfi£i im f,v t /tS ,/ ,QAj», i i i i i i i i i i i i i i i i i i i i i i , i i i i i i i i i 


■ 1 1 1 1 1 1 1 1 1 1 1 


ISto 


rJ/t~,/A4/,7~,/,rlit-i/i'ZE', i i , , , i i i i i i i i i i i i i i i i i i i i i i i i , i , i i i i i 


1 1 1 1 1 1 1 1 1 1 1 1 


IhC 


, , , I^SM ,0,UT,P,UT, iffA^^^i-./F/i^., , . i , , , , 


1 1 1 1 1 1 i 1 1 1 1 1 1 


t,7fl 


. , , W,o,it£, x'MegmlM\ T,o, MJeje&LM-MEt^Ds m**-,u ms;. 


1 1 1 1 1 1 1 1 1 1 1 1 


tS,0 


, , , htatie ,'MartT,thLy,' , j,o, Mo,uT,n>utf-Am,D,' m$-,*-j me* 


1 1 1 1 1 1 11 


Iflfi 


, , , [ Mo,^a ,'AtfMU:, kTA AMMALrft-,mWM(>-,LJMZ., , , 


1 1 1 1 1 1 1 1 1 1 1 1 


tPfl 


, , , W,R,lT,e, ,H,e;K(\iMk-,RG£0s&tk ,Btto,R& AQMMC,!,M6 ,2, ,^/,A/^S,., , 


1 1 1 1 1 1 1 1 1 1 I 1 


2,/P 


, , , W,i/& 3PACMS, ,T,0, ,H,E/lp,i ■M6 r #ACfi&4., . . . . r . . 


1 1 1 1 1 1 1 1 1 1 1 1 


i i 


1 1 1 1 1 1 1 1 1 1 1 ! 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 | 1 1 | 1 1 


1 1 1 1 1 1 1 1 1 1 1 1 


i i 


1 1 1 1 1 1 1 1 1 1 1 1 1 \ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 I 1 I 1 1 1 1 1 1 | 


1 1 1 1 1 1 1 1 1 1 1 1 


I, 1 


II 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 1 1 1 1 1 1 1 1 1 „ 
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PAGE 
1 3 _ 

am 


program y ^r 0/ C06OL &9MPLF 


SYSTEM y^/ 


SHEET ^OF ^ 


PROGRAMMER ^ ^Qtf^ 


DATE 


,DENT - Wht.*XJ& 


SERIAL \z J 

S A B 

4 6 78 |I2 16 20 24 28 32 36 40 44 48 52 56 60 64 68 72 


a/ t 


§i7~,flt/K-\T,~\L\0,Of^\» i i i i i i i i i | i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i 








0,2,0 


, , , \P,e,R^o,z,m ,G4LCMLArjiOMS\ MflXMiMC* AtmrftLy,-,ft*t? ,f,x>om as,op,.,o,o, ,m 








0,3p 


, , , lOA/,0,.,0,0, ,MT,IU M0MT,H,tf-,P,fW, ,/,£, ,6£iE;tt£X. t CT,tk*ti ,l,0,0,O,.,o,o,.\ 








affi 


i i i MD&}&\ StPA^ttSi \T,0\ ,S,&,L,^Gy\~\^^C x OfaD,., i i i i i i i i i i i i i i i i i i i i i i i i i i 








0,570 


T,EJfc,l,~/Art\S,H\~{riO,r\ftiL,S\*, i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i iii 








o,bo 


, , ,\l,F, MAEBZ,UV-,GMC,KEX-, ,/,S, ,E,9,UAA., ,770, ,M*S// t - l T l 0,rAL,-,O,r,-,k(&E,A;L i K-,P*l', , , 








OJP 


, . . AMD, i /tfaAAT,tfLrt-,&ac,K£;r, ,/s, ,G&a4,£., nrra ,tf4stf l ->T,o,r,# l L,~,o,*,~,'W4MT,#,iy,--,f?w 








0,9,0 


, , , X SMW, AMM*\L,-,B,U,C,KET, ,/i5, ,£"fl<vftfc, T,Q, #AS,H-,7;orA,L,-,oF,-Ame<+,LriPA,K , 








OVJD 


, , , s M0>i/,G ,',TA8,L£, VAl*U,e,S, AGE? £0e,GGC\T>\ ,T,(k ,/MES,SA^S, i . , , 


i 1 i i i i i i i 








IPP 


i ■ i W/5/7-.e; MttSAGG-^Gco*,/), ARTttt Aau^MC/Mb .% xL,/,ai£TS, , , 


i i i l i l 1 i i 








1,1,0 


i i i i^"/-i* Fi i r i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i | i i i i 


i i 1 i i i i i i 








1,2,0 


, i , teoMZ ,',r,Aff t itG ,va,lm£;s, akb mot: ,c,o,^^^c,r,\ ,r,a >/*£$$,+,&&, 


l i i l i i i i i 
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, , i W,KIT& iMGS,S&&E~&eZP&& Ar,T£ZK ,/hD,l/AMC,t A/ 6, ,Z ,L,/,A/<?5, ., , 


1 i i l i i i i i 








/Mo 


, , , \C,ipfft &/9l<-,4*yr,*\',£&; ,3T,o,P, ,R,UM., ,,,,.,,,,,,,,,,,, i 


| i i i i i i i i 








l,Tfi 


C,ft\L,C,U,L,fi\T,t P\^i,S,> i i i i i i i i i i i i i i i i i i i i i i i i | | i i 


I I I i I I i i i 








LbP 


, , , \C&MP,Ur,e, &,E,fi«,L,^,P x AM ,«■ ,3, ,*i ,/H0AJTfaLM~,P,AY, ./ ,/,3,. 


i i i i i i i i i 








1,7,0 


, , , t,0,ntP,u,T^E, AAfAll4AL,->P,M, ,«, ,/,Z ,* i46>AA77M/.M-,PAW ml , 


i i i i i i i i i 








l,?,0 


, , , /H,0,U,B ,U)GEJC4-M-iP,M ,71*9, t U/GEX,Ly,-/)&TAt «_. 4*tM£r., • . 


iii i 








l&C 


. , , X M0,I/\G AiOMtmM^P/Wy T,0, /HO,k/,T,N,Ly,-,QET/l\U-i-;*~J sUim • 


l i i i i i 1 i i 








2,op 


, . . '/tt,0,i/,£ AMVM4/.,-iP/hy, .TO, AMMAL,~,D&TA/t-,-,L<tME;., ...... . , 


i i i i i i i i i 








%,ip 


, , , W*DJ), MEprXLiK-AM, ,T0, ,M46M-T0 t TAi*-A*itW l r&Z l --Mi&EKit*U.i i , 


i i l i i i i l i 








22JD 


, , , \A,DA ,/MaAJ t T l tf,LM-,mM ,T0, ,HAS,H-T,0TAL-,e,O,UMT&f>~M0MT,HjL,V,*, 


i i i i i l i i i 








23,0 


, , , 'AbJk AhlMA,L-,PM XC ,HASM~,T,0,TAL,~,e,OMMr^^,~Am,U.,A^, , , 


1 1 l 1 1 1 1 1 1 








Z4fi 


i i i itff^V i7"i£T $A&- A,^, 1 /,- ,P,,E;c>,o &JD,» , i i i i i i i i i i i i i i i i i i i i i 


| i i i i i i l l 








i i 


i 
i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i..i. .i i i i i i i i i i i i i i i i i 


1 1 1, 1. 1 1 11 1 
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